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Editors Jottings/News 


ACORN WORLD 95 


By the time you read this issue of BEEBUG, 
Acorn World '93 will be little more than four 
weeks or so away. After years of rumour 
regarding Acorn's involvement in shows 
organised by other sponsors (principally Acorn 
User), Acorn took the bull by the horns last 
October and announced that the 1993 autumn 
show would be organised directly by themselves. 
Thus Acorn World '93 was born. 


Advance information from Acorn does seem to 
indicate that this autumn we can expect. 
something different. Acorn is clearly keen to 
promote its systems in specific targeted markets, 
notably education (which we all know anyway). 
in the consumer (i.e. games) market, and 
increasingly in the professional DTP market. 
where Acorn's Archimedes system is competing 
against the more established Apple Macintosh. 


In the consumer market, Acorn will be launching 
a major sales campaign this autumn backed ир 
by some aggressive pricing (their words)! What 
this means in practice is that there are 
significant price reductions to be had on most. 
Archimedes models. The A3010 Family Solution, 
previously £499 inc. VAT will be reduced to 
£399 inc. VAT, and there are similar price 
reductions on other models. The result is that 
the cost of buying a new Archimedes system is 
now lower than it has ever been, and no doubt 
the asking price on secondhand machines will 
follow suit. 


Acorn has also been making a number of 
announcements this year about links with major 
publishing system suppliers. At Acorn World you 
сап expect to see a new generation of DTP 
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software pushing the Archimedes firmly into 
contention at the top end of thís market. 
Acorn promise a complete publishing area at 
Acorn World, demonstrating all the processes 
involved in editing and printing a major 
publication - they even promise a full colour 
press with copy coming off the production 
line. 


Acorn World will also feature a theatre, with a 
programme of lectures on each of the three days, 
but unlike previous shows, where speakers have 
extolled the virtues of one commercial software 
solution after another with a strong sales bias, 
Acorn has promised a line-up of quality 
speakers, addressing the issues that face the 
Acorn community, in what truly promises to be a 
"Vision for the Future’, Acorn's catch-phrase {or 
the show. 


Now no doubt many of you reading this may be 
feeling that this is just another editorial pushing 
the Archimedes, but that is not my immediate 
aim. Whether you have a simple model B, a 
Master 128, or a host of add-ons like co- 
processors, we are all users of Acorn machines. 
And Acorn World promises to be the most 
interesting and exciting event for all Acorn users 
for many years. If you have a chance then come 
along and see what Acorn, and all the other 
exhibitors, are up to. 


We would also like to welcome you to any of our 
three stands: RISC User (and BEEBUG) where 
you will be able to meet editorial staff; RISC 
Developments Ltd. for our ranges of software and 
hardware; and Beebug Ltd. which is still one of 
the large d most respected Acorn dealers in 
the country. See you at Acorn World 93. 


Mike Williams 
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Compact Disc Cataloguer 


Keep track of all your compact discs with this handy application from 
Graham Lowe. 


Following the recent purchase of a 
compact disc player, I started building 
a collection of classical music CD's. It 
quickly became obvious that some sort 
of filing system would be useful to 
keep them in some semblance of order, 
particularly compilation discs, which 
have many items on them each by a 
different composer. It occurred to me 
that a program I wrote several years 
ago to record cheque transactions 
could be modified to suit this purpose. 
The program presented here is the 
result. 


Composer Search 


Composers Наме: BACH 


PRESS RETURN ONLY POR NATN NENU 


Searching for a composer 


As it stands it is pretty skeletal, with 
scope for expansion or alteration for 
other uses. The programming is, I 
suspect, a bit archaic, and not necessarily 
the tidiest code ever written, although it 
is quite easy to follow. Perhaps other 
readers may have suggestions for 
improving the code. 


The data itself is stored on disc in an 
extending file called cd_data. Since each 
new entry is added at the end of the file, 
there is no scope for editing an entry 
after it has been saved. So a prompt is 
given before saving to give you the 
opportunity for checking your data 
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SETTING UP THE CD CATALOGUER 
Type in the cd. base program and save it 
to disc. Then create an empty data file 
with: 


vri 


This file must be the last file on the disc, 
so that it can expand without the 
dreaded "Can't Extend" error appearing, 
If for some reason this error should occur 
you should: 


*COPY cd data to another disc 
"COMPACT the original disc and 
"COPY cd data back again 


Should more than one data file be set up, 
the current one (the one which you will 
be adding data to) must still be the last 
on the disc. 
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A very productive fellow this Bach 


USING THE CATALOGEUR 

When run the program displays a menu, 
which presents you with the usual 
facilities for adding details, and for 
searching using the CD number, CD title, 
track title, composer or track length as 
the search criteria. The CD number is a 
number assigned by you, when you 
enter the original details. When entering 
data don't overwrite the hash symbol 
Doing so will not have far reaching 
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consequences but will spoil the display 
during searches. Also avoid using 
punctuation as strings are cut short by 
commas and quotes. Selecting "K" from 
the main menu calls PROCKeys which 
allows you to insert a string into f0. I 
have found during input that with a 
multi-track CD it becomes very irritating 
typing in the CD title 15-20 times, so 
having the main title typed into Ю can be 
useful. PROCkeys could easily be 
expanded to use more than one function 
key. "Q" as always, quits the program 


QD. Database 
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The main menu 


HOW THE PROGRAM WORKS 

PROCinput is pretty straightforward 
Simply a series of input commands and 
messages. PROCscreen(message$) is 
responsible for printing the basic screen 
for each search section. To modify the 
procedure for other uses simply 
message$. PROCsearch(field%, finc 
the INSTR function to test the data 
strings in groups of five. The variable 
field% defines which of the five is to be 
tested for a match with find$. I use all 
upper case for input to avoid missing 
lower case entries during searches. Using 
INSTR means a search can be made with 
only part strings though the results can 
be a bit odd. A search for Composer 
using just “BA” will find not only Bach 
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and Bartok but also Offenbach. The 
longer find$ is, the narrower the field of 
results will be. Try to keep the input data 
as constant as possible, especially 
abbreviations. This program doesn’t 
break any speed records with 


00. Database 


Track Title 


to Dis " 


Do not overvrite # 
Entering a new CD 


sophisticated search techniques; it is 
simply a linear search from one end of 
the file to the other. When the search time 
becomes too long, additional data files 
could be started, though a facility to 
select a file name would then be 
required. PROCquery simply waits for 
confirmation before saving to disc 

PROCding changes the VDU7 sound 
courtesy of the pages of BEEBUG. 


I hope this program may prove useful in 
helping some readers tame their 
otherwise untidy CD collections. 
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170 fieldt-FNchoose 

180 IF field&-27 PROCkeys ELSE IF fiel 
di-33 exiti-TRUE ELSE ON field’ PROCinpu 
t, PROCEindnum, PROC£ indtitle,PROCÉindt ti 
tle, PROCEindcomp, PROCfindtime 

190 IF find$«»** THEN MODE0:VDU19,1,2; 
0; :PROCsearch(field$,find$) 

200 MODE 7:С105Е%0 

210 UNTIL exit$ 

220 CLS:CLOSE#O 

230 END 

240 : 

1000 DEFFNchoose REM Sub menu screen 
1010 PROCheaderl 

1020 VDU31,6,6,134,157, 129 : PRINT*1...Ad 
d Details":VDU31,31,6,156 

1030 VDU31,0,9, 134,157, 129: PRINT*Find D 
etails:-":VDU31,20,9,156 

1040 VDU31, 6,12, 134, 157, 129: PRINT*2...C 
D.Nunber . * :VDU31, 31,12, 156 

1050 vDU31, 6,14, 134,157, 129: PRINT*3...T 
itle.":VDU31,31,14, 156 

1060 VDU31, 6,16, 134,157, 129: PRINT*4...T 
rack Title.":VDU31,31,16,156 

1070 VDU31, 6, 18, 134, 157, 129: PRINT'5...C 
omposer." :VDU31,31,18,156 

1080 VDU31,6,20, 134, 157, 129: PRINT*6...T 
rack Length" :VDU31, 31,20, 156 

1090 VDU31, 6,23,134, 157,129: PRINT*Q...Q 
UIT — K..KEYS*:VDU31,31,23,156 

1100 REPEAT 

1110 G-GET 

1120 UNTIL(((G»48 AND G«55) OR 0-75) OR 
G-81) 

1130 -G-48 

110 : 

1150 DEFPROCdisc 

1160 X-OPENUP"ADFS: :HardDisc.$.Steve.La 
test.CD Cat.cd data* 

1170 PTR#X=EXT#X 

1180 PRINTÉX,cd$,title$,t title$,comp$, 
len$ 

1190 CLOSEHX 

1200 ENDPROC 

1210 : 

1220 DEFPROCheader 

1230 PRINT*CD no*TAB(14) "TTTLE* TAB (34) * 
TRACK TITLE"TAB (59) *COMPOSER"TAB(73) "LEN 


1250 : 

1260 DEFPROCprint 

1270 PRINTTAB(0)0$ (1) TAB(6)OS (2) TAB (33) 
QS (3) TAB(60)0$ (4) TAB(74) QS (5) 

1280 ENDPROC 

1290 : 

1300 DEFPROCsearch(fieldt,find$) 

1310 VDU14:£ieldi-fieldé-l 

1320 PROCheader 

1330 X-OPENUP"ADFS: :HardDisc.$.Steve.La 
test.CD Cat.cd data" 

1340 PTRÉX-0:ni-0 

1350 REPEAT 

1360 INPUTÉX,Q$(1),0$(2),0$(3),0$(4),0$ 
(5) 

1370 IF field&-5 n&-INSTR(LEFT$ (05 (£iel 
d$),2),find$) ELSE n$-INSTR(O$ (fieldt),f 
ind$) 

1380 IF п%>0 PROCprint 

1390 UNTIL BOF#X 

1400 CLOSERX 

1410 PRINT''TAB(40); PRESS SPAC 
E 

1420 PRINTTAB(40) ;STRINGS (20, *_*) 

1430 REPEATUNTILGET-32 

1440 VDU15 

1450 ENDPROC 

1460 : 

1470 DEFPROCfindnum 

1480 CLS 

1490 PROCscreen(*CD Number Search") 
1500 VDU31,0,12,131,157,132, :PRINT"CD N 


umber Required..." TAB(27,13) ">RETURN<" : 
INPUTTAB(24, 12) finds 

1510 ENDPROC 

1520 : 

1530 DEFPROCfindtitle 

1540 CLS 


1550 PROCscreen(*CD Title Search") 

1560 VDU31, 0,12, 131, 157, 132, : PRINT"Titl 
e Required..." TAB(27,13) *» RETURN«" : INPU 
ТТАВ(20,12) find$ 

1570 ENDPROC 

1580 : 

1590 DEFPROCÉindt, title 

1600 CLS 

1610 PROCscreen(*Track Search") 

1620 VDU31, 0, 12,131, 157,132, : PRINT"Trac 


СТН" :PRINTTAB(0, 1) STRINGS (80, * ") :PRINP k Title..." TAB(27,13)'RETURN«": INPUTTA 
1240 ENDPROC B(18,12) finds 
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1630 ENDPROC 

1640 : 

1650 DEFPROCfindcomp 

1660 СІ5 

1670 PROCSCreen("Composer Search") 

1680 VDU31, 0,12, 131, 157, 132, :PRINT*Comp 
Osers Name..." TAB(27,13) "»RETURN«* : INPU 
TTAB(20, 12) find$. 

1690 ENDPROC 

1700: 

1710 DEFPROCfindtime 

1720 cts 

1730 PROCscreen("Track time search") 

1740 VDU31,0,12,131, 157,132, : PRINT*Time 

required (in minutes)..." TAB(27,13)*»R 
ETURN«" : INPUTTAB(32, 12) find$ 

1750 ENDPROC 

1760: 

1770 DEFPROCheaderl 

1780 CLS 

1790 vDU31,6,0,135,157, 135,31,31,0, 156 

1800 VDU31, 6,1, 133,157, 132, 141:PRINT* 

CD. Database" :VDU31,31,1, 156 

1810 VDU31, 6, 2,133,157, 132, 141: PRINT* 
CD.Database" :VDU31, 31,2, 156 

1820 VDU31, 6,3, 135,157, 135,31, 31,3, 156 

1830 ENDPROC 

1840: 

1850 DEFPROCinput 

1860 PROCheaderl 

1870 PRINTTAB(0,6)"CD. Number "TAB(17)* 
P 

1880 PRINTTAB(0,8)"CD. Title *TAB(39)*& 


1890 PRINTTAB(0,10)*Track Title"TAB(39) 
ире 

1900 PRINTTAB(0,12) "Composer"TAB (24) *#* 
1910 PRINTTAB(0,14)"Track length"TAB(19 
1"# (mm:ss)* 

1920 PRINTTAB(3,19)"RETURN alone for Me 
nu* 

1930 PRINTTAB(16,22)CHR$141;*Do not ove 
rwrite #* 

1940 PRINTTAB(16,23)CHR$141;*Do not ove 
rwrite š" . 

1950 INPUTTAB(14,6)cd$:IF cd$=' 
c 

1960 INPUTTAB(14,8)title$:IF title$-'" 
'ENDPROC 


ENDPRO 


1970 INPUTTAB(14,10)t_title$:IF t title 
5-"" ENDPROC 

1980 INPUTTAB(14,12)comp$:IF comp$="" E 
NDPROC 

1990 INPUTTAB(14,14)len$:IF len$="" END 
PROC 

2000 PROCquery 

2010 ENDPROC 

2020 : 

2030 DEFPROCquery 

2040 VDU7:PRINTTAB(20,20)CHR$136"Save t 
о Disc ? Y/N* 

2050 геріу5-бЕТ5:ІЕ reply$="Y" OR reply 
$="y" PROCdisc:ENDPROC 

2060 ENDPROC 

2070 : 

2080 DEFPROCding 

2090 ENVELOPEI, 1,0,0,0,0,0, 0, -126, -2,0, 
-1,126,80 

2100 “ЕХ 211,1 

2110 *FX 212,0 

2120 *FX 213,180 

2130 *FX 214,1 

2140 ENDPROC 

2150 : 

2160 DEFPROCscreen (message$) 

2170 VDU31, 6, 0,133,157, 132, 141: PRINImes 
sage$:VDU31, 34,0,156 

2180 VDU31, 6,1, 133,157,132, 141: PRINIes 
sage$:VDU31, 34,1, 156 

2190 VDU31, 0,20, 132,157,134, :PR: 
5 RETURN ONLY FOR MAIN MENU" 

2200 ENDPROC 

2210 : 

2220 DEFPROCkeys 

2230 CLS 

2240 PROCscreen(*f key Setup") 

2250 PRINTTAB(0,8)"Please type in the m 
essage to be entered*'"in key £0. It mus 
t not exceed the max*''"for the intended 

field.* 

2260 PRINTTAB(0, 14) "Cd. Number. . . © 
d Title......25*' "Track Title. ..25*'*Com 
poser......10*'*Time.... 5" 

2270 INPUTTAB(0, 19) key 

2280 OSCLI(*key0*«* *«fkey$) 

2290 ENDPROC 

2300 : 


INT" PRES: 
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Multiple Character Designer 


Roger Butler presents the answer to the VDU23 blues. 


How often have you tried to design a 
large graphic character using multiple 
VDU23 commands, only to discover that 
the final result bears no relationship to 
your original concept? The following 
program provides a solution to these 
problems. I had originally planned to 
write a single character editor, but it did 
not take me long to realise that it was not 
worth the effort - you may as well use a 
piece of graph paper and save all that 
typing! So, I decided to write a multiple 
character editor instead, where you can 
see exactly what you are designing. 


USING THE PROGRAM 

Firstly, type in the listing as shown. After 
checking and saving, run the program 
and you will be presented with the 
following options. 


1: Edit characters 
2: Dump characters 


THE EDITOR 

Selecting option 1 will put you in Edit 
mode. Here you will be required to enter 
the size of the grid and which character, 
if any, you want to appear in each ‘cell’. 
The grid has a maximum limit of 9 
characters in a 3 * 3 format. However, 
other permutations are possible; for 
example: 3 rows by 1 column, 2 rows by 
3 columns or 3 rows by 2 columns, etc. 
Let us suppose that you choose a grid 
size of (2,3); i.e. 2 rows by 3 columns = 6 
characters to edit. You will need to enter 
a VDU character number for cells from 
(0,0) through to (1,2). If you are not 
familiar with matrix notation, the 
following diagram may help in showing 
which cell is which. 


Beebug October 1993 


(0,0) (0,1) (02) 


(1,0) (1,1) (1,2) 


Diagram 1. А simple 3*3 matrix 


So let's say for example you have chosen 
the following character numbers for each 
cell. 


(0,0) - 65 
(0) -77 
(02) -37 
(10)-54 
(1Д)-84 
(1,2) - 40 


You would then be editing the following. 


A М % 
6 T < 


Diagram 2. 6 characters їп 6 cells 


If you are designing a graphic from 
scratch, you can simply enter the “space” 
character 32 for each cell. After entering 
the character number for the last cell, the 
editing screen appears. On-screen 
instructions are provided, and are self 
explanatory. 


After designing your masterpiece, you 
can have each character definition 
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displayed individually by pressing ‘V’ 
when the pointer is over the character. 
You will then have 20 seconds to write 
down the VDU23 command. You can 
cancel the display during this period by 
pressing any key. Pressing ‘E’ ends the 
editing session and gives you the option 
to list the VDU23 definitions on screen or 


printer. 


т” 
тате? 


The Editing screen 


You can save your new characters by 
pressing “S”, which saves page &C00 to 
disc. To edit any saved characters, run 
the program, and then press Escape 
while in the editing screen. Type the 
command: 
*LOAD filename 

where filename is the name you saved the 
characters under. Now re-run the 
program and enter the number of each 
character you saved. 


Readers will note the use of the OSCLI 
command in the program, which is not 
available on Basic 1. If you only have 
Basic 1, define a procedure as follows: 


DEF PROCos 


X%=&40 : Y 


CALLE 
ENDPROC 
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You can now use PROCos() in exactly the 
same way as OSCLI. 


THE DUMP ROUTINE 

You can use this option to begin with, or 
after pressing ‘E’ when in the editing 
mode. You will be prompted to enter the 
start and finish character numbers, after 
which the program will churn out the 
definitions of each VDU character 
within the range specified. 


HOW THE PROGRAM WORKS 

Like the options, the program consists 

of two main procedures, PROCdump 

and PROCmove. PROCdump is 
obviously the routine which prints the 
character definitions, and it does this 

by using an OSWORD call with A-10 

(see the User Guide page 462) 
PROCmove is slightly тоге i 
complicated. It uses the GET 
command to see which key has been 
pressed, and then acts upon this 
information. If a cursor key is pressed, the | 
pointer is moved in the appropriate 
direction using PROCdisp. If “S” is pressed, 
control is passed to PROCsave and then 
passed back again. PROCfill is the other 
routine within the PROCmove routine, and | 
this is called when Return, Delete or 'V' is 
pressed. When Return is pressed, the 
computer checks to see if the square is 
already filled in. If it is, Return is ignored. 
If it is not, the square is filled and the | 
character definition to which that square I 
belongs is updated, as is the composite 
character in the instruction box. Delete 
works in exactly the same way as Return. 
When 'V' is pressed, PROCfill simply 

prints out the make-up of the character. 


This program really has speeded up the 
design process for me and I am sure it 
will be of help to many readers. 
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10 REM Program Character Designer 1110 ENDPROC 

20 REM Version B 1.0 1120 : 

30 REM Author Roger Butler 1130 DEF PROCinit 
40 REM BEEBUG October 1993 1140 COLOUR2 


50 REM Program subject to copyright 

60 : 

100 MODE1 

110 ON ERROR PROCerror:END 

120 VDU23;8202;0;0;0;19,1,5;0;0;19,3,6 
400; 

130 PROCinit 

140 PROCenter 

150 VDU19,1,1;0;0; 

160 PROCga 

170 CLs 

180 60010,2 

190 PROCgrid(r,c) 

200 PROCinst 

210 x1$=0:ylt= 


260 PRINT'"Do you want to dump charact 
ers (Y/N) ?* 

270 U-GET 

280 IF U-89 OR U-121 PROCdump 

290 PRINT '"Do you want to continue ed 
iting (Y/N) ?" 

300 G-GET 

310 IF G-89 OR G-121 RUN 

320 END 

330 : 

1000 DEF PROCgrid(r,c) 

1010 FOR X$-0 TO H$ STEP St 

1020 MOVEO, X$ 

1030 DRAWWS, x% 

1040 NEXT 

1050 FOR Х%-0 TO Wi STEP 5% 

1060 MOVEX$,0 

1070 DRANK, HS 

1080 NEXT 

1090 MOVE825, 100 :DRAW1279, 100 :DRAW1279, 
900 

1100 DRASB25,900:DRAN825, 100 


1150 PRINT''SPC(5)"Multiple character е 
ditor* 

1160 PRINT'SPC(18)"by Roger Butler." 

1170 COLOURI 
1180 PRINT'''SPC(10*1: Edit characters 
" :PRINT' 'SPC(10)*2: Dump characters" 
1190 COLOUR 
1200 PRINTTAB(5,20)"Press the number of 
your choice.* 

1210 DIM h(2,2),w(2,2),5(2,2) 

1220 IF GET-50PROCdump 
1230 FORx-0TO2 
1240 РОВу=0Т02 

1250 READZ,Y,S 

1260 м(х,у)-2:Һ(х,у)-Ү:в(х,у)-5 

1270 NEXT, 

1280 ENDPROC 
1290 : 

1300 DEF PROCenter 

1310 REPEAT 

1320 cts 
1330 PRINT'''*Character Editor" :COLOUR2 
1340 PRINT" "Please enter grid size (Max 
.39)* 

1350 INPUT'*Number of rows ";r 
1360 INPUT" “Number of columns ";с 
1370 PRINT'*Grid size chosen (";r;",";c 
"m 

1380 INPUT'"Is this o.k. (Y/N) ";k$ 

1390 UNTIL INSTR(*Yy*,k$) 

1400 DIM q&(8*r,c-1) 

1410 rzr-1:c-c-1 
1420 DIMF$(r,c) 

1430 FORqu-ÜTOr:FORqwl-ÜTOC: PRINT" "Char 
acter to be edited at (*;qw;*,";qul;") " 
; i INPUTOS : Fi (qw, дий) =08 :NEXT, 

1440 S8=s(r,c) :Hi-h(r, c) :WR=w(r,c) 

1450 ENDPROC 

1460 : 

1470 DEF PROCdisp 

1480 00012,1 
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1490 MOVES, y$ PRINT" /* 
1500 GCOL1,2 

1510 MOVEXIS, y18: PRINT*/* 

1520 x%=x1%:y%=y1% 

1530 ENDPROC 

1540 : 

1550 DEF РЕОСпоуе 

1560 *FX4,1 

1570 REPEAT 

1580 *ЕХ15,1 

1590 PROCdisp 

1600 G-GET 

1610 IFG-86 PROCKillix1$,y1$,1,1) 
1620 IFG-13 PROCKill(xl$, yt, 1,0) 
1630 IFG-127 PROCÉillixl$,yl&,0,0) 
1640 IFG=137 х1%=х%-5%* (xB<WB-3*S8/2) 
1650 IFG-136 х1%=х%+5%* (xt>=S8) 
1660 IFG-138 у1%=у%+5%* (у4>5%) 
1670 IFG=139 yli-y&-St* (у%<н%-5%/2) 
1680 IFG-83 OR G=115 PROCsave 

1690 UNTILG=69 OR G-101 

1700 ENDPROC 

1710 : 

1720 DEF РЕОСЁ111(А%,В%,},К) 

1730 vpu4 

1740 V0028,0,5,10,2 

1750 [%=А% DIVS&:ES-8*(r«1)-(B& DIVS%) 

1760 GCOLO, j 

1770 IF k=0:MOVEAS+4, BE-4:MOVEAB+S8-4,B 
$-4: PLOTSS, A%+4, BB-Sb+4 : PLOTS, A%+S%-4, B 
3-54 

1780 VDU28,0,31,39,0 

1790 IF k-0:IF j=1:IF (q%(E%,DW DIVB) А 
ND 2^(7-(D& MOD8)))=0 q%(E%,D% DIVE) =q8( 
ER, Dk DIVB)42^(7- (Di MODB)) 

1800 IF k-0:1F j-0:1F (9%(Е%,0% DIVB) А 
ND 2^(7-(0% MOD8)))>0 q&(Et,D$ DIVB)-q$( 
EB, D8 DIV8)-2^(7-(D& М008)) 

1810 Е%-Е% DIVB:D$-D& DIVE 

1820 IFk=1 PRINTTAB(1,3)*VDU 23," ;ЕФ(ЕЗ 
008) ;*, "qè (8*ES, DS); *, *;a8(8*EB+1, D8) ;* 
1 "708 (B*ES42, D8) ;* , "TAB (5,4) ; Q8 (8*E$43, 
DB) ;*, а (8*E8«4, DB) ;", *; a8 (8*E®+5, D8) ; 
*," id (8*E8+6, D8) ;", * jg$ (BES47, DU) ; 

1830 IFk=1:Y=INKEY (2000) :PRINTTAB(1,3) ; 


SPC (24) ; TAB(1,4) ;SPC(24) ; 

1840 VDU23,F8 (E$, D$) , qi (8*E$, Dt) , q% (8*E 
$«1,D$) ,q(8*E8+2, D$) , q$ (8*E$43, D$) , qi (8 
*E8+4, DE) ,q%(8*E%+5, D$) , qè (8*E$«6, D8) , qi 
(8*E8+7,D8) 

1850 COLOUR:FORn-ÜTOr:FORn1-ÜTOC 
1860 PRINTTAB(31+n1,25+n) ;CHRS (Fi (n, n1) 
); : NEXT, 

1870 005 
1880 ENDPROC 

1890 : 

1900 DEF PROCdump 

1910 CLS 

1920 INPUT''"Character to start from "; 
s 

1930 INPUT'*Character to finish at ";e 

1940 PRINT'*Do you want the output sent 
*:INPUT*to a printer too (Y/N) ";k$ 

1950 PRINT'"Use SHIFT to scroll."CHR$14 

1960 IF k$-"Y* OR k$="y" VDU2 

1970 FORK-s 70 e 

1980 ?&70-K 

1990 X$-&70:Y$: 
2000 COLOUR2 
2010 PRINT'*V. 23,*;K; 


-&A:CALL &FFFl 


2050 VDU3: COLOURS 
2060 PRINT""Press апу key":b-GET 
2070 cis 

2080 ENDPROC 

2090 : 

2100 DEF PROCgetchar (28,02,03) 


2110 ?&70-2& 

2120 X%=&70:Y%=0:A%=10:CALL&FFF1 
2130 FOR N%=0 TO 7 

2140 q$(8*b2«N$, 03) =? (&71«N8) 
2150 NEXT 

2160 ENDPROC 

2170: 

2180 DEF РЕОСда 

2190 FORb-0TOr 

2200 FORbl-0TOC 


Continued on page 15 
l 
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ADFS and the 'E' Attribute 


Ian Crawford unlocks that which should stay locked. 


In the good (bad?) old days when there 
were only the BBC Models A and B, and 
most normal people used cassettes to 
load and save programs, the advent of 
the disc drive was like a breath of fresh 
air. One soon learned to master the 
techniques and the only problems were 
the occasional accidental deletion of a 
program (or two) because one had 
forgotten (or was too lazy) to ‘L’ock the 
file. 


The advent of the Master series and the 
Archimedes running ADFS, presented 
different problems. As shown in the 
Trouble Shooting Guide Part 4 by Gareth 
Leyshon, (BEEBUG Vol.11 No.10), the 
setting of various file and directory 
attributes can take many forms: (R)ead 
only, (W)rite only, (L)ock, (D)irectory 
(which is usually accompanied with the 
LR set), and finally the potentially 
disastrous (E)xecute attribute. 


Now most people will never need or 
want to set data files or programs to E^ 
because, once set, it is impossible to 
remove, according to the Acorn ADFS 
User Guide. 


SO WHAT? 

Well consider this: You have a ‘special’ 
disc that has taken you years to develop 
with all your master programs, or data 
files that constantly have to be accessed 
and updated as part of a hobby, or your 
entire business list of clients names etc. 
Like me, you will always lock all those 
important files, but when you need to 
update information you obviously need 
to unlock them. 
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Due to laziness, I always use the *ACC. * 
WR method which unlocks all files. Then 
I re-save the modified data and re-lock 
using *ACC. * LWR. 


A quick glance at the keyboard will soon 
show you where 'E' is situated and, if 
one is in a hurry, distracted, or in a bit of 
а day dream, it is very easy to clip the E^ 
and press Return before realising it. The 
next time you try to access or modify any 
files on that disc you will not be able to, 
because the ADFS system has set the ‘E’ 
attribute, which means that many years 
work of valuable data is lost forever. 


That is what happened to me recently. I 
immediately questioned the statement 
that once set, it was impossible to 
remove, and with the help of PRES (John 
Huddleston) I was able to remove the 
dreaded ‘E’ and regain the years of 
collected data that I thought lost forever. 


Why didn't you keep backup-copies of 
such valuable discs you ask. I do. I did. I 
run 3 identical discs, but in my day- 
dreaming haze I had subconsciously 
gone through the identical *ACC. * LWR 
without looking at the screen and had 
lost my two backups as well. 


This is when panic set in and that is why 
I feel the following information is 
invaluable and needs to be made 
available to all, because I'm sure I can't 
be the only person to suffer in this way! 


FINDING THE ‘Е’ ATTRIBUTE 
It is essential that you have a disc sector 
editor to perform the following 
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ADFS and the 'E' Attribute 


operations. I use the ADT (Now PRES) 
Advanced Disc Toolkit, although a similar 
routine could be followed by users of 
other disc editors 


Let's start by having a look at how the 
directory information is organised. 


Insert a disc into drive 0 and type *DEX 0. 
The information on all files in the $ (root) 
directory is found somewhere between 
the second and sixth sectors. Use Shift- 
Right Cursor to advance a sector at a time 
until you see all the file names and sub- 
directories listed in the right-hand 
window. Normally sector 2 holds 
information on filenames and sub- 
directories. Look at bit 7 for the first few 
bytes of a filename: if bit 7 is set in byte 1 
then the R attribute is set, in byte 2, the 
W attribute, and byte 3, the L attribute. 
Byte 4 is more complex; if bit 7 is set in a 
high hex number like D7 then the 
filename is another directory. If it is in a 
low hex number like 54, then the 
filename is a file. Finally, if the fifth byte 
has bit 7 set, then the E attribute is set. 
The setting or unsetting is done by 
adding or subtracting 128 decimal (&80 
hex) to the value of the hex number 
shown in the left hand window when the 
cursor is positioned under the 5th 
character of the filename in the right 
hand window. Let's look at it in practice. 


SETTING THE Е’ ATTRIBUTE 
For the first example, create a file called 
Test3 (its contents don't matter). 


1. Position the cursor under the 5th 
character of the filename, in this 
example the 3. 

2. Look at the left hand window where 
the equivalent brackets () are 
positioned, to find the hex number 33. 
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3. Calculate the hex value of &33+&80 
(if necessary exit to Basic first and 
PRINT ~&33+&80). Answer-B3. 


4. Return to the 5th character of the 
filename. 


5. Press the Copy key. The () brackets 
will change to [] brackets. 


6. Type B3. 


7. Press Escape and type “Ү' to re-save 
the sector. 


8. The ‘E’ attribute is now SET. 


To check that you have the right answer 
(in step 6 above), enter mode 7 and type 
PRINT СНК 683. This should give the 
answer 3, which is the 5th character of 
the filename. This technique can be used 
to check the rest of the examples; just 
change &B3 to the value in step 6 in each 
example. 


The second example looks at a longer 
filename, TestEd2, which has to be dealt 
with in a slightly different way. 


1. Position the cursor under the 5th 
character of the filename, in this 
example the E. 

2. Look at the left hand window where 
the equivalent brackets () are 
positioned, to find the hex number 
45. 


3. Calculate the hex value of &45+&80 
(if necessary exit to Basic first and 
PRINT ~&45+&80). Answer-C5. 


4. Return to the 5th character of the 
filename. 


5. Press the Copy key. The ( brackets 
will change to [] brackets. 


6. Type C5. 


7. Complete as above. 
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REMOVING THE 'E' ATTRIBUTE 
From the above examples on setting this 
supposedly ‘unremovable’ attribute, you 
will probably have realised that it is 
actually very easy to remove. Simply 
modify step 3 to subtract &80 from the 
value obtained in step 2 instead of 
adding it. 


(UN)LOCKING FILES IN SUB 
DIRECTORIES 

The above examples have only dealt with 
files that exist in the root directory. To 
modify files in other directories you will 
need to know the sector address of the 
directory involved. This is exceptionally 
easy to find out - just type *INFO *. The 


address should look something like 
00000F or 000372. So type *DEX F or 
*DEX 372 to take you straight to the 
Correct sector. 


АП you need to do now is to repeat the 
steps outlined for setting or removing the 
'E' attribute. 


If this proves to be helpful to others then 
I'm happy to have provided such a 
service. 


If other readers can unlock further dark 
secrets of the Beeb then perhaps they will be 
encouraged to submit them for publication in 
BEEBUG. B 


mer (continued from page 1 


2210 PROCgetchar (ЕФ (b, b1) , b, b1) 

2220 NEXT, 

2230 ENDPROC 

2240 : 

2250 DEF PROCfsq 

2260 FORqw-ÜTOr:FORqwl-ÜTOc 

2270 FORqw&-0TO7:FORqwl$-7 TO 0 STEP-1 
2280 ІР (q%(8*qw+qw’,qwl) AND (2*qwlt)) 
=2°qwl$ PROCfill(S%*(8*qwl+7-qw1%),S%*(8 
*(rel-qu) -qwt) , 1,0) 

2290 NEXT,,, 

2300 ENDPROC 

2310 : 

2320 DEF PROCinst 

2330 COLOUR2:PRINTTAB(30,4) "Keys :* 
2340 VDUI9,3,6;0;0; :COLOUR3 

2350 PRINTTAB(26,6) "Arrow keys" 

2360 PRINTTAB(26, 7) "move cursor" 

2370 PRINPTAB(26,9)*<RET> - fill" 
2380 PRINTTAB(26,11)"«DEL» - blank" 
2390 PRINTTAB(26,13)"S - save" 

2400 PRINTTAB(26,17)*V - list VDU" 
2410 PRINTTAB(26,15)"E - end* 


2420 PRINTTAB(30, 18) "values of" 


2430 PRINTTAB(30,19) "current" 
2440 PRINTTAB(30,20) "character" 
2450 PRINTTAB(26,22) "You are* 
2460 PRINTTAB(26,23) "editing :" 
2470 ENDPROC 

2480 : 

2490 
2500 VDU4 

2510 INPUTTAB(1,3) "Filename 
2520 PRINTTAB(1,3)SPC(20) 
2530 OSCLI(*SAVE "+file$+" C00 D00") 
2540 VDUS 

2550 ENDPROC 

2560 : 

2570 DEF PROCerror 

2580 VDU22,7 

2590 REPORT:PRINT* at line ";ERL 
2600 OSCLI(*FX4*) 

2610 ENDPROC 

2620 : 

2630 DATAB00,800,100,800,400,50,795 
2640 DATA267, 33, 400, 800,50, 800,800 
2650 DATA5O, 795, 529,33, 267,795, 33 
2660 DATA529, 795, 33,795,795, 33 


PROCsave 


:- s;file$ 
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Wordwise-Mail Reviewed 


Chris Robbins looks at the latest extension to Wordwise-Plus, 
Wordwise-Mail. 


Since Wordwise Plus appeared some ten 
years ago, there have been numerous 
attempts at realising the potential of its 


built-in programming 
Wordwise-Mail is the latest. 


language. 


At just under ten pounds, it’s an extremely 
low cost product that, according to 
Synectics, “will help you get ... letters 
written more quickly, consistently and 
methodically than ever before!". 


A better description might be that of 
correspondence organiser, since the 
major advantage over straight Wordwise 
Plus for writing letters, is the facilities it 
provides for keeping track of the letters 
you've written; if you use it sensibly and 
carefully, you need never lose any letter 
ever again. At least, not those you've 
written via Wordwise-Mail! 


In order to do this it maintains a 
'database' of names and addresses; an 
'index' of names which allows the 
appropriate address to be found even if 
you've only got the haziest of ideas as to 
the correct name; and perhaps the most 
useful feature of all, a reference list 
which records identification data such as 
a unique program generated reference 
number, addressee's name, date, and a 
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short comment that could be used later 
to retrieve the letter e.g. 'Scouts 
Outing/Luna Base II’. 


Getting going should be simple - well it 
would have been for me if I hadn't chosen 
to blindly follow the setup procedure 
described in the documentation that 
accompanied the review copy. I was 
puzzled for some time by the error 
message "Channel" that came up every 
time I tried to use it. It eventually dawned 
on me that the demonstration address file 
ladrs was missing from the review copy; 
nota very promising start. 


The necessity of setting up such a file - 
containing the names and addresses 
you're going to use - isn't made clear 
until after the instructions to start a letter 
are given. In fact the documentation is 
generally rather lacking when it comes to 
describing the important, and finer, 
points of the program's workings. 


For instance, when starting a new letter, 
where the address isn't already in the 
address file, one might suppose that 
having entered the new address, the end 
of that address should be indicated in 
much the same way as when setting-up 
the original address file i.e. a circumflex 
(^) on a line by itself. Not so! An 
investigation of the program code 
revealed that any line consisting of two 
characters or less would do, but, that 
they'd also become part of the address! 
Thus, not only would the address be 
wrong, but a further problem would 
arise (and the program crash) if '^' had 
been used. The correct thing to do was 
simply to press Return. 
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A more informative user prompt, and 
some suitable validation of the input, 
could have avoided these difficulties. 


It also suffers from an apparently 
inconsistent use of the Escape key. It is in 
fact entirely consistent; it's just that 
sometimes you can use Escape and then 
again sometimes you can't. Frequent use of 
the program will, no doubt, bring 
familiarity. But for infrequent letter writers, 
like myself, it will, also undoubtedly, 
remain an extremely annoying feature. 


The temptation under such circumstances 
is to press Break; not always a wise move! 
Especially if Break hasn't been 'taken in 
hand' by the program in use, as it hasn't 
in the case of Wordwise-Mail. I must 
admit though, that despite my finger 
straying onto Break on several occasions, 
nothing untoward occurred. 


However, I found the safest and surest 
way to get out of trouble was to press 
Shift and Ю to call up the Wordwise-Mail 
main menu. 


This menu allows selection from a 
comprehensive set of operations that 
includes: 


starting, saving and printing letters, 
setting disc drive options, 

changing the default date (even for 
Master users this has to be done 
manually), 

searching for letter references, 
creating an index etc. 


Once in the main menu, things are fairly 
straightforward. 


Ignoring the minor niggles of misleading 
documentation, the program's crashability, 
a less than obvious user interface, and the 
fact that it won't run with any version of 
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WWh» earlier than 1.4F, the most serious 
drawback is that at present it only works 
with DFS and requires a minimum of two 
disc sides, one side being reserved for 
names and addresses. Thus the number of 
letters that can be saved is severely limited. 


For those users with only the standard 
DFS and just one double-sided drive the 
limit is 25 letters. An additional double- 
sided drive will allow an extra 62 files, 
and if you've also got a utility such as 
DiscDoctor (which allows an extra 
catalogue), or maybe a DFS with a dual 
catalogue capability such as that from 
Watford Electronics, the limit can be 
extended quite significantly. 


An ADFS version of the program would 
be an even better solution! 


It's worth emphasizing what I said 
earlier about using it "sensibly and 
carefully". For despite claims that "You 
don't have to be a computer expert to use 
Wordwise-Mail" expertise in the WW+ 
programming language would come in 
very handy when the unexpected occurs. 


On second thoughts, since the program's 
code is easily read, such expertise might 
best be employed pre-emptively, to 
eliminate many of the ‘rough edges’ of 
the program and make it more robust 
and amenable to casual use. 


To sum up, the idea is a good one, and 
although it does come a little late in the 
life of the BBC Micro/Master and 
Wordwise Plus, the facilities provided by 
Wordwise-Mail, in terms of code per 
pound, are excellent value for money. 
However, more needs to be done to 
increase its robustness, and to improve 
both the user interface and the 
accompanying documentation. 8 
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Quasimodo 
by Jonathan Temple 


Quasimodo's sweetheart, Princess 
meralda, has been imprisoned in the 


wicked Baron's fortress. Can you, 
Quasimodo the hunchback, save her 
from the Baron's evil clutches? 


A quick Tarzan impersonation 


Before being re-united with your love 
you have to tackle eleven screens, but 
what with those cruel guards throwing 
rocks and arrows at you and those tricky 
swinging ropes it's going to be difficult. 


You guide Quasimodo using the Z and X 
keys for left and right, and Return to 
jump. You can ‘freeze’ the game by 
pressing Ctrl. Pressing Shift will restart it 
again. 


Quasimodo has the usual computer 
character's quota of three lives, one of 
which he will lose each time he 
misjudges a jump or is hit by a rock or 
arrow - all common occurrences when 
you first begin to play 


To complete a screen, Quasimodo must 
jump up to the bell rope and ring the 
bell. He is then awarded a bonus, the size 
of which depends on the current screen 
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and how long it took him to complete it. 
After the 11th screen Quasimodo 
gets to meet 
his princess 
for one brief 
moment 
(Ahhh...) and 
then he's 
whisked 
away back to 
the start to try 
again. 


A close shave for our 
hunched friend 


Entering the program is straightforward 
enough - just type it in and away you go. 
Model B users without sideways RAM, 
however, will need to miss out any 
unnecessary spaces and the instructions, 
or set PAGE to &1200 (type PAGE=&1200) 
before loading the program - if you 
choose the latter course remember not to 
press Break as this will corrupt the 
program. 


The Bells! 


PROGRAM NOTES 

The data for the eleven screens is held in 
lines 2840-2890, with four numbers for 
each screen. The first number represents 
the type of screen where: 
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Quasimodo 


0-15 a flat wall; 

15 represents turrets; 

isa pit with a rope and 
isa pit with platforms. 


А 


The next three numbers represent the 
chance of an arrow, rope and boulder 
appearing respectively. If 0, it will not 
appear on that screen. 


Close box not close enough Quasi 


The chance is decided using 
RND(<number in data»). If this is equal 
to 1 a new arrow or boulder is made to 
appear. So that the arrows and boulders 
come at the same time and position at 
each go, making it easier to plan a route 
through each screen, the RND function is 
seeded using RND(-<number>). This 
means that the numbers produced will 
be the same every game. 


However, if Quasimodo should reach 
Esmeralda, when he starts again the seed 
(the variable RS%) for RND is changed, 
which means that in some of the screens 
the player will have to learn a new route 


Jumping is achieved by having two 
arrays, А%(6) and В%(6), the data for 
which is in tin 5 2820-2830. A variable, 
J%, is decreased as Quasimodo leaps 
through the air, and this is used to obtain 
two values from these arrays which are 
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then added to Quasimodo’s X and Y co- 
ordinates. By changing the values in 
these two lines it would be possible to 
get Quasimodo to jump further - useful 
for cheats! 


A useful procedure included in the 
program is PROCtriple, which when 
called with PROCtriple(X,Y,C,A$) will 
print the string A$ at tab position X,Y in 
colour C in triple-height characters. local 
variables are used for this procedure, so 
it can be lifted straight out and used in 
your own programs. 


The chiming sound used when 
Quasimodo rings а bell is taken from Ian 
Waugh's excellent series of articles, 
Making Music on the Beeb’ 
Vol.3 No.8 to Vol.4 No.2). 


The game Quasimodo was first published in 
BEEBUG Vol. 4 No. 


Quasimodo 

REM Version Bl.4 

REM Author J. Temple 

40 REM BEEBUG October 1993 

ject to copyright 


PROCsCreen 
PROCman:IF ЕФ PROCrope 


$-1:90UND 0,1,50,1 ELS 
E PROCbonus 


280 UNTIL IF L&-0 PROCkilled 


7% 


ІР INKEY-74 IF J8+JF8=0 J%=6:N%=(I 
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Quasimodo 


INKEY -98) - (INKEY-67) :SOUND 1,1,10,5 

1060 JF%=0: IF J& PROCjump:ENDPROC 

1070 IF Fè IF Х%-0%-32 GOTO 1110 

1080 IF INKEY-98 IFX%>0 X$-X$-32:Wi-W* 
EOR 3:SOUND 18,-10,50,1:IF \%<>231 V8=23 
1:0%=233 

1090 ІР ІМКЕҮ-67 1РХ%<1216 X%=X%+32:W%= 
W& HOR 7:SOUND 18,-10,50,1:IF /%с>232 V 
-232:4%-235 

1100 IF POINT(X$,Y&-64)-0 IF POINT(X8+5 
6,Y$-64)-0 E$-1:F$-0 

1110 IF D&c2W$ GCOL3,6:MOVE A%,B%:VDU C 
$,10,8,D$:MOVE X$,Y$:VDU V$,10,8,Wt 

1120 IF D&-W$ FOR N=1 TO 30:NEXT 

1130 ENDPROC 

140: 

1150 DEFPROCjump 

1160 Х%=Х%+А% (J$) *N%:Y%=Y%+B%(J%) 

1170 IF X&-0 IF NB=-1 NB=0 

1180 IF X$-1216 IF N$-1 N$-0 

1190 J$-J&-1:GCOL 3,6:MOVE A$,B$ 

1200 VDU C$,10,8,D$:MOVE Xt, Y$ 

1210 VDU V$,10,8,W$:IF 7%=0 JF&-l 

1220 IF Х%-1216 IF Y$-668 Е%-2 

1230 ENDPROC 

1240 : 

1250 DEFPROCrope 

1260 GCOL 3,7:MOVE 640,896:DRAW G%, 604 
1270 G%=G%+H%:IF G$-320 OR G&-960 Hi--H 


% 
1280 GCOL 3,7:MOVE 640,896:DRAW G8, 604 
1290 IF J$-0 IF АВ5(0%-Х%) <65 IF ABS(60 
4-Y%)<65 GCOL3, 6:MOVE X$,Y$:VDU V$,10,8, 
WS :X%=G3-32:MOVE X$,Y$:VDU У%,10,8,М4% 
1300 ENDPROC 

1310: 

1320 DEFPROCarrow 

1330 IF R&-0 GOTO 1400 

1340 IF ABS(Qi-X$)«33 IF АВЅ(604-Ү%)<33 
Et=1 

1350 GCOL 3,3:MOVE Q$,604:VDU 226 

1360 Q=Q%-32:MOVE QS,604:VDU 226 

1370 IF Q&<-32 В%=0 

1380 IF АВ5(0%-Х%)<33 IF ABS(604-Y8)<33 
E$=1 ы 

1390 ENDPROC 

1400 IF RND(P$)-1 Q$-1216:Ri 
:MOVE 1216,604:VDU 226 

1410 ENDPROC 


GCOL 3,3 


1420 : 

1430 DEFPROCboulder 

1440 IF U$-0 GOTO 1510 

1450 IF АВ5(Т%-Х%)<33 IF ABS(672-Y)«33 
кеі 

1460 GCOL 3,6:MOVE T$,672:VDU 227 

1470 T&-T$«64:MOVE T$,672:VDU 227 

1480 IF Т%1216 1%-0 

1490 IF ABS(T&-X$)«33 IF ABS(672-Y$)«33 
кі š 

1500 ENDPROC 

1510 IF RND(M%)=1 T$-0:U$-1:GCOL 3,6:MO 
МЕ 0,672:VDU 227 

1520 ENDPROC 

1530 : 

1540 DEFPROCkilled 

1550 VDU 4,28,2,26,17,20,12 

1560 PROCtriple(3,1,2, "GAME OVER") 

1570 PRINTTAB(1,5)"Press Spacebar" 

1580 REPEAT UNTIL GET-32:ENDPROC 

1600: 

1610 DEFPROCbonus 

1620 SOUND 2,2,81,16:SOUND 2,2,81,16 
1630 FOR N-1 TO 300:NEXT:IF Z$«0 7%-0 
1640 VDU 4,28,2,26,17,20,12 

1650 К%=К%+1:5%=5%+7% 

1660 IF K&-12 PROCCOngrats:ENDPROC 
1670 PROCtriple(2,1,3, "BONUS = "+STR$ (Z 
%) 

1680 TIME=0:REPEAT UNTIL TIME>200 

1690 ENDPROC 

1700 : 

1710 DEFPROCCOngrats 

1720 K&-1:VDU 26,12:IF RS$-3 L8=L8+1 
1730 PROCscreen 

1740 VDU 4,28,2,26,17,16,12 

1750 PROCtriple(3,1,3, "WELL DONE !*) 
1760 VDU 26,5,18,3,5,25,4,960;636;231,1 
0,8,230,18,3,6 

1770 FOR Х%=0 TO 864 STEP 16 

1780 MOVE X$,636:VDU V$,10,8,W& 

1790 w&-Wi EOR 7:MOVE Х%+16,636 

1800 VDU V&,10,8,W$:FOR N=1 TO 40 

1810 NEXT,:PLOT 69,928,616 

1820 RESTORE 2900:N-Bl:*FX 15,0 

1830 FOR T-l TO 10:READ A,D:N-N«A 

1840 SOUND 1,-15,N,D:SQUND 2, -10,N+48,D 
1850 МЕХТ:ТІМЕ-0 


1860 REPEAT UNTIL TIME>200:VDU 4 
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1870 PROCtriple(4,21,2, "Now try again') 
1880 COLOUR 5:PRINTTAB(7,25) "<SPACE>" 
1890 REPEAT UNTIL GET-32:RS-RG$«l 

1900 ENDPROC 

1910 : 

1920 DEFPROCtriple(X,Y,C, AS) 

1930 LOCAL A$, N$, x$, Y$ 

1940 Х%=&70:Ү' \$=10:COLOUR C 

1950 FOR М%=1 TO LEN(A$) 

1960 ?&70-ASC(MIDS(AS,N$)) :CALL &FFFl 
1970 у0023,253,2871,2871,2871,2572,2572 
12872, 2873, 2673 

1980 VDU23, 254, 2&73, 2674, 2874, 2674, 2&75 
12815,2815, 2&76 

1990 VDU23, 255, 7476, 2&76, 2677, 2&77, ?&77 
12678, 2678, 2678 

2000 VDU 31,X«N$-1,Y,253,10,8,254,10,8, 
255 

2010 NEXT:ENDPROC 

2030 : 

2040 DEFPROCscore (N$) 

2050 S%=S%+N%:VDU 4,17,7,31,6,1 

2060 PRINT LEFT$ (*00000*,5-LEN(STR$ (5%) 
))+STR$ (5%) 

2070 VDU 5:ENDPROC 

2090: 

2100 DEFPROCscreen 

2110 уру 4,17,1,17,135 

2120 FOR Ү%-14 TO 28 

2130 PRINTTAB(0,Y&) STRINGS (20, CHR$ (237 
+УФМ0р2)) 

2140 NEXT:VDU 17,128:RESTORE 2840 

2150 FOR Né-l TO K$ 

2160 READ /%,Р%,Р%,М%:МЕХТ 

2170 IF У%-1 PROCturrets 

2180 IF V$-2 OR V$-3 PROCpit 

2190 IF У%-3 VDU 31,5,14,225,31,8,14,22 
5,31,11,14,225,31,14,14,225 

2200 2%-=К%*100+400:РКІМТТАВ(0, 0) "BONUS: 
*; TAB(0, 1) *5СОВЕ:* 

2210 COLOUR? : PRINTTAB(6, 0) ;2%;TAB(2,26) 
"SCREEN: ";K% 

2220 COLOUR6:IFL>1 FOR Х%-15 TO L8*2+1 
1 STEP 2:VDU 31,X8, 0,232, 10,8, 235 :NEXT 
2230 PROCscore (0) 


2270 VDU 18,0,6,25,4,1248;636;25,5, 1248 


:888;18,3,3,25,4,1216;928;228,10,8,229,1 

8,3,6,25,4, X8; Y$; VE, 10,8, W8, 23;10,32;0;0 

Hn 

2280 IF Fè GCOL3,7:MOVE 640,896:DRAW G% 

,604 

2290 ENDPROC 

2300 : 

2310 DEFPROCturrets 

2320 PRINTTAB(4, 14)G$; TAB(9, 14) GS; TAB(1 

4,14)65 

2330 FOR Х%-376 TO 1016 STEP 320 

2340 VDU 25,4,Х%;568;25,0,0;-92;25,81,- 

32;0;25,0,0;60;25,81,32;32; 

2350 NEXT;ENDPROC 

2370: 

2380 DEFPROCpit 

2390 FOR X$-3 TO 15 STEP 2 

2400 PRINTTAB(X&,14)G$; :NEXT 

2410 VDU 25,4,1080;568;25,0,0;-92;25,81 

4:32;0;25,0,0;60;25,81,32;32; 

2420 ENDPROC 

2430: 

2440 DEFPROCinit 

2450 DIM А%(6),В%(6) 

2460 FOR N&-1 TO 6 

2470 READ A(Nt),B& (Ni) :NEXT;RS$=3 

2480 G$=STRINGS(3," “+CHR$10+CHR$8+CHR 

$8) 

2490 ENDPROC 

2500 : 

2510 DEFPROCinst 

2520 VDUL7, 130,28, 10,5,28,1,12,26 

2530 PROCtriple(11,2,1,'0O UA S IMOD 

0") 

2540 VDUI9,3,6;0;17,128,17,3,31,0,8 

2550 PRINT" Іп this version of the wel 

l-known*'"arcade game you must guide Qua 

simodo''*through the eleven screens to h 

is''"sweetheart, Princess Esmeralda.'' 

2560 PRINT" Our hero must avoid the аг 

rows and*'"rocks the cruel guards are th 

‘him, and use the ropes to sw 

Һе dangerous gaps.'' 

2570 PRINT* You should use the Z and X 

keys to*''move left and right, and «Ret 

urn> to*'*jump. To complete each screen 

Quasimodo*'*must jump up to the bell гор 

е and ring"'*the bell.** 
Continued on page 24 
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Machine Code Corner 


In which Mr Toad gives us some answers. 


In recent issues, you may recall, Mr T has 
been catching up with the correspondence; 
since last time I’ve had some nice letters - 
and some useful literature - from Cliff 
Blake of Portsmouth and Bill Woodall of 
Yeovil. Sorry guys, we'll have to wait 
until a later issue to deal with your 
excellent contributions, because this 
month it's the turn of Arthur Adams. 
Arthur sent me some handy references, 
and also said nice things about me in the 
July issue, for which he deserves ап ГМ 
А SWOT badge. Arthur pointed out that 
I was being too clever in my full-sized 
ROM header code (BEEBUG Vol.11 
No.8). I used a variable 7% to hold the 
initial value of 0%, the start of the 
assembly area, determining the lowest 
possible address by: 


240 2%=22+6100"23 


BUT... 

It doesn't always work, and it's worth 
telling you why, since we end up with a 
useful way of saving memory when 
space is tight. Addresses 2 and 3 hold 
V-TOP, the address of the first byte 
above the Basic variables. However, at 
the start of the first pass of the assembler 
there aren't yet any variables, so 7% 
points to the first location after the Basic 
assembler program. As the first pass 
proceeds, the assembled code is 
overwritten by the growing variables 
area, but that’s OK. At the beginning of 
the second pass, addresses 2 and 3, 
having been updated, now point to the 
new V-TOP, so assembly proceeds from 
there, the first free byte above the 
variables. So what’s wrong with DIM 
statement? OK, it sfarts the assembly off 
at the same place as our trick, but what 
about the top end? You have to make a 
guess as to the space you'll need. You 
can run the program to find out, then 
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alter the DIM, but that’s more trouble 
than my way, let alone the fact that it 
would need revision after any alterations. 


All fiendishly clever stuff, and I'd never 
had any trouble with it before, but in 
Arthur’s program there must have been 
a large number of variables or labels 
declared in one short stretch. At some 
point during the first pass, some new 
variable, as it was declared, went into the 
space above the the assembled code. 
Later the code being assembled caught 
up again and overwrote that variable, so 
when the machine next looked for it, it 
wasn’t there. At this point the Beeb 
sensibly stopped assembling and gave a 
rude message. 


Sod's Law - the first time my cunning 
scheme gave trouble was after 
publication! I hadn't thought deeply 
enough, and had reasoned that it 
couldn't happen. There's a moral in there 
somewhere. The fix is to leave some just- 
in-case space on the first pass by starting 
assembly a good way above TOP/V-TOP, 
then to bring the starting-point down to 
V-TOP for the second pass. 


The two passes of the assembler are done 
by: 


FOR М = 4 TO 6 STEP 2:0PT № 


When we set 2%, we can test N% to find 
out which pass is being executed. The 
statement N%=4 will evaluate to -1 if 
TRUE, or 0 if FALSE; thus we could 
multiply N%=4 by the amount of spare 
space we mean to allow. Say we decide 
on &200 bytes: &200*(N%=4) will 
evaluate to -&200 on the first pass 
(-1*&200), but to 0 on the second, since 
0*&200=0. An ABS will remove the 
minus: ABS(&200*(N%=4)) now equals 


Beebug October 1993 


Machine Code Corner 


&200 on the first pass. Bingo! The line 
can now read: 


240 Zi 


1+&100*23+ABS (&200* (N$-4) ) 


Assembly of the object-code now wastes 
not a single byte. Believe me, it can 
matter if the program is fairly long. But, 
gentle reader, we can simplify the line a 
bit. That's this month's competition, part 
one: remove the ABS() from line 240 and 
make just one other change so that it 
works exactly as before. 


Just one teensy-weensy snag - you may 
get into trouble if you declare another 
variable later in the program. The only 
reason I can think of for wanting to do so 
in the assembly text of a ROM is a ‘find- 
a-free-slot-for-the-*SRWRITE' loop such 
as I used in the published headers; there I 
used a resident integer, N%, which lives 
ina different area of memory. This sparks 
an idea - if you're finishing a project in 
assembler and you're really short of 
space, why not use А% to 7% to replace 
some of the variables? You'll gain a lot of 
space. You could also use them as labels - 
and this brings us to part two of this 
month's competition: although you can 
use resident integers as labels, you'll 
have to do three passes of the assembler 
or run the program twice before saving 
the code. Why? Do write in: there are 
more than enough badges left and Mr T 
loves to hear from readers. 


Anyhow, as promised in the last issue, 
(which was on machine-code arithmetic, 
remember?) we'll now have a look at 
another way in which the 6502 allows us 
to manipulate a byte, other than by 
arithmetic. 


This month we'll look at the ‘rotate’ or 
‘shift’ operations, which mean moving 
each bit of a byte one place to the left or 
right. This is handy for multiplying or 
dividing by 2 (or 4, 8, 16, etc. if you repeat 
the operation). We saw this last time. 
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АП four of the rotate/shift instructions 
can be used with five addressing modes: 


Accumulator write A after the 
instruction to rotate A 

Zero-page write a one-byte address 
nn after the instruction 

Zero-pageX write nn,X after the 
instruction 

Absolute write a two-byte address 
nnn after the 
instruction 

AbsoluteX write nnnn,X after the 
instruction 


To multiply a byte, rotate it to the left by 
ASL - Arithmetic (NOT ‘Accumulator’) 
Shift Left, or ROL - ROtate Left. The 
difference between the two is that after a 
shift, the least significant bit of the byte, 
bit 0, always ends up clear (=0), whereas 
after a rotate, bit 0 holds what was 
previously in the carry-flag. Both finish 
by moving the bit which ‘falls off the 
end’ into the carry-flag. One reason for 
having the two is that you can multiply a 
multi-byte number, using the carry-flag 
to move bit 7 of one byte into bit 0 of the 
next. Let's multiply by two a two-byte 
number held LSB-MSB at .number - but, 
whatever method we use to double an n- 
byte number, we must have n+1 bytes to 
store the result, in case there’s an 
overflow. 


LDA #0 

STA number+2 \ ready to store any 
overflow at end. 

ASL number \ we want bit 0 of the 
low-byte clear, so not 
ROL. C-flag now = 
original bit 7 of number. 

ROL number+1 \ contents of 871 now *2 + 


original bit 7 of number. 
C-flag now = previous bit 
7 of number+1. 

\ Rotate C-flag into bit 0 
of number+2. 


ROL number+2 
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It’s just like including the carry-flag in 
an addition or subtraction, only with 
those operations, the 6502 doesn’t have 
carry-flag-excluded versions, so we 
have to use CLC or SEC in preparation. 
Happily, here we have both rotate and 
shift available. 


Another reason for having the rotate 
instruction is that, if you keep repeating 
it on а single byte, the byte literally 
rotates - thanks to the carry-flag, the bits 
which are rotated off the high end get 
put back into the low end. Thus, if you 
want to multiply a single byte, you must 
use ASL, not ROR, otherwise you are 
likely to get some bits added over and 
above the simple multiply. 


You can also shift and rotate to the right, 
using LSR or ROR. That's to divide, of 
course. All the above remarks apply as 
regards the carry flag. 


You may sometimes perform one of these 
operations for reasons other than arithmetic. 
Fancy screen dissolves, for example. Most 
of the fonts in my Fontz ROM (BEEBUG 
Vol.10 No.1) were achieved by manipulat- 
ing the bit-patterns of the characters, 
using ASLs or LSRs plus the operations 
which we shall consider next month. 


That's it for now, reptile-readers. Another 
notch carved on Mr T's monitor. I'm off 
to the sweet shop to spend this month’s 
money on a sherbet dip - I bet I can swell 
up bigger than those fancy South American 
frogs. 
ІН go pop, think only this of me: 

There is some corner of a Beebug desk 

That is forever reptile. 


Next month: AND, OR and EOR (no, not 
Christopher Robin's donkey!). Also, who 
is the Patron Saint of computing, and why 
not? B 


2580 PRINT" 
ze the game"**until «Shift» is pressed." 


«Ctrl» can be used to free 


2590 COLOUR2:PRINT'TAB(5)"Press the SPA 
CE BAR to play..." 

2600 REPEAT UNTIL GET=32:ENDPROC 

2620 : 

2630 DEFPROCChars 

2640 VDU23, 225, -1, -1, -1,239,193,0,0,0 
2650 VDU23,226,33,66, -1,66,33,0,0,0 
2660 VDU23,227,60,94,182,175,187,183,94 
,60 

2670 VDU23,228,24,36,24,44,44,44,94,94 
2680 VDU23,229,94,-1,129,126,0,0,0,0 
2690 VDU23,230,60,172,92,24,56,60,62,12 
6 

2700 VDU23,231,56,124,76,38,194,70,60,2 


2710 VDU23,232,28,62,50,100,67,98,60,24 
2720 VDU23,233, 60,118,118, 110,60,24,24, 


2730 vDU23,234,60,110,118, 118,60, 24,60, 


2740 VDU23,235,60,110,110, 118,60,24,24, 
28 

2750 vDu23,236,60, 110, 118,118, 60,24, 60, 
38 

2760 VDU23,237,-3,-3,-3,-3, -3,-3,-3,0 
2710 VDU23,238,223,223,223,223,223,223, 
223,0 

2780 ENVELOPE 1,133,8,4,8,3,1,1,126,0,0 
,-10,126,0 

2790 ENVELOPE 2,4,0,0,0,0,0,0,126, -1,-1 


,-1,80,0 

2800 ENDPROC 

2810 : 

2820 DATA 0, -16,32, -16,32, -16,32,16,32 

2830 DATA 16,0,16,0,2,0,0,1,0,0,0,2,0,1 
0,4,1,2,0,0,2,9 


2840 DATA 0,3,0,0,0,0,2, 
9 


2850 DATA 1,0,3,0,0,2,1,5,0,2,2,99,1,2 
2890 DATA 3,10,0,2,0,4,8,4,8,4,4,4,8,8 
2900 DATA -12,8,4,8, -12,8,8,8,-16,8 


2920: 
2930 MODE? : PRINT' ' :REPORT 
2940 PRINT * at line ";ERL:END ® 
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Error Handling 


Alan Wrigley describes how to take advantage of 
Basic's reporting of errors. 


Sooner or later, all 
programmers need 
an understanding of the way in which 
errors are handled and reported in Basic. 
Errors can occur for all sorts of reasons, 
and few programs are totally immune to 
them. Errors could be caused, among 
other things, by mistakes in 
programming, such as typing errors in 
eywords, by faulty logic, or by failing to 
ре ап unusual sequence of actions 
y the user. There are many other causes 
of errors, and the larger and more 
complex the program, the greater the 
chances that errors will occur. With a 
substantial program it often requires 
more time to sort out errors than to code 
the program in the first place. 


Basic makes a distinction between two 
different types of error: fatal and non- 
fatal errors. Fatal errors are those which 
cause the program to terminate 
automatically without further ado; an 
example would be "No room", which 
clearly must be fatal since the program 
cannot run if there is insufficient 
memory. Non-fatal errors, on the other 
hand, can be trapped by the program, 
which means that they can either be 
ignored, or reported in some way 
without stopping the program. Most of 
Basic's errors are non-tatal, and I will be 
describing how to trap them later. 


For programming purposes, we can 
ауе Bon-fatal erore further into 
serious and not-so-serious errors. For 
example, if a call is made to a non- 
existent procedure, a "No such 
EN/PROC" error will be generated. 
This could be trapped, but since the 
program is unlikely to be able to 
continue sensibly with a procedure 
missing, the error can be considered as 
serious enough to terminate the 
program. On the other hand, if the user 
is asked to give a filename, the program 
should not just give up the ghost if the 
file can’t be found on the current disc - 
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perhaps the name has been typed 
Incorrectly or the wrong disc is in the 
drive. 


A good programmer will aim to 
eliminate all potential serious errors 
before the program is to be used. In the 
ideal world, no program should crash 
under any circumstances; if a problem 
arises it should cope with it in a 
dignified fashion, issuing a warning to 
the user so that adjustments can be made 
to input etc. 


Errors in programming or faulty logic 
usually show themselves up at an early 
stage provided that programs are tested 
thoroughly while in the process of 
being written. However, trying to cater 
for all possible environments or all 
possible actions by the user (some of 
which may be extremely silly but you 
have to handle them all the same) can 
be very difficult, and is the main cause 
of most errors. Take the example given 
above, where the user is asked for a 
filename. You may assume that ADFS is 
the current filing system, and allow 10 
characters for the filename. But the user 
may have switched to DFS before 
running the program, which will result 
in a crash if you try to save a file with a 
name of more than 7 characters. 


As another example, you might be using 
EVAL to evaluate an expression typed in 
by the user. However, any attempt to use 
EVAL on an expression which does not 
make sense to Basic will generate a “No 
such variable” error. This includes null 
strings (as would result if just Return 
was pressed and nothing else). You must 
be prepared for this and either code your 
program in such a way that an error is 
impossible, or at the very least trap the 
error if it occurs. 


ERROR REPORTING 
Basic has a number of keywords 
associated with errors. The REPORT 
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statement can be used to display the 
message relating to the last error that was 
generated (e.g. "No such variable", 
"Escape" and so on), regardless of 
whether that error was generated from 
within a program or at the Basic 
command line. If по error has occurred 
since the computer was last switched on 
or reset, a simple copyright message is 
displayed. This statement can be used 
within error trapping routines, for 
example to display the error message 
while at the same time preventing the 
error from reaching the outside world 
and terminating the program. 


Two other useful related keywords are 
ERR and ERL, which are functions 
returning respectively the error number 
of the last error, and the program line at 
which it occurred. Both of these can be 
useful in an error-handling routine - 
the former to help you decide which 
errors to trap and which to pass on, 
and the latter in conjunction with 
REPORT to indicate where the error 
occurred. In general, the line number is 
only useful while debugging a 
program, since it is normally 
unnecessary (and undesirable) for the 
user to be given such information 


TRAPPING ERRORS 
Normally when an error occurs in a 
Basic program, Basic stops execution 
immediately апа displays the 
appropriate error message ва Бу 
{ће phrase "at line п”, where п is the 
line number at which the error occurred. 
The value of ERL is set to this line 
number, while the value of ERR is set to 
the error number. Every error has its 
own number so that each can be 
identified. Basic uses numbers from 0 to 
45, while other ROMs such as the MOS 
and filing systems use other numbers up 
to 255. A list of Basic's error numbers is 
firm in the User Guide and in the 
aster Reference Manual. Other error 
numbers may be described in literature 
relating to the ROM in question; if all 
else fails you can find out the number of 
any error by forcing it to occur and then 
reading the value of ERR immediately 
afterwards. 
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In order to stop this process happening 
automatically, Basic provides a means for 
trapping non-fatal errors. This is done by 
using the ON ERROR statement. This 
tells Basic that when an error occurs, it 
must execute the statement immediately 
following the ON ERROR. Some 
examples of its use might be as follows: 

ON ERROR GOTO 5000 

ON ERROR PROChandl. 


In the third example, the error handler is 
contained in the rest of the line (in this 
case simply duplicating Basic's default 
action by reporting the error and then 
quitting). In the other two examples, a 
procedure or routine is pointed to. This 
routine can perform whatever actions 
you require on encountering an error. 
Often it will involve looking out for 
certain likely errors (such as the non- 
existent filename mentioned above) and 
giving some kind of warning, while 
either ignoring other errors or simply 
reporting them. In many cases, in fact, 
“error-trapping” is something of a 
misnomer since it is really a question of 
providing feedback to which the 
Program can react. 


A very important point to note is that 
after executing the remainder of the ON 
ERROR line, Basic continues from the 
line following the ON ERROR. In other 
words, irrespective of where in the 
рар the error occurs, trapping it 
with ON ERROR will always return 
control to the point in the program after 
the ON ERROR. Not only this, but Basic 
re-initialises its stack, which means that 
all loops, procedures etc. are closed, and 
so effectively it forgets where it was 
before the error. This has important 
implications for the way you program 
error handlers. 


With a structured approach to program 
design, this problem need not bother you 
too greatly. If you have a main program 
loop, which perhaps puts a main menu 
on the screen and then calls one of a 
number of procedures depending on the 
user's choice, then you could put your 
ON ERROR statement immediately 
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before the main loop and be sure that any 
errors will return to a well-defined point. 


It is also possible to have more than one 
ON ERROR statement in a program. The 
most recent statement encountered will 
be the one which is executed in the case 
of an error. This means that you could 
invoke a different error-handler in one 
section of the program if you wish. 
However, you then have to be careful 
about your structure - Basic will return to 
the point following the new ON ERROR, 
and if this is in a procedure this fact will 
have been forgotten. When the 
ENDPROC is encountered, a “No proc” 
error will be generated, invoking the 
error handler again and thus producing 
an infinite loop. 


Probably the safest way of overcoming 
this is to stick with the main error 
handler, but to set a flag depending on 
where the error is called from. For 
example, you could set a variable err% to 
a different value at the start of each 
procedure, and reset it to zero at the end 
of the procedure. Next time the program 
returns to the start of the main loop, if 
err% is non-zero this means that an error 
must have occurred in the relevant 
procedure, and it can be called again 
straight away. 


To finish the article, let’s look at a 
concrete example of an error handler. 
We will assume that all serious 
programming faults have been removed, 
and any errors generated by the program 
will be down to incorrect user input. The 
two errors we have decided to trap are 
“Escape”, which occurs when Escape is 
pressed, and “Not found”, which will 
occur if a file is not found. In the first 
case we want to return to the start of the 
main program loop whenever Escape is 
pressed, while in the second case we 
want to warn the user that the filename 
typed in doesn’t exist. Other errors we 
will simply ignore for now. 


Before the main loop, therefore, we need 
a couple of lines such as: 
ON ERROR PROChandle error 
IF err$=1 THEN PROCinput ELSE 
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The list of procedures in the second 
line will depend on your program; for 
the purpose of our example we have 
assumed that if the "Not found" error 
is Boing to occur, it will be in 
PROCinput, and this procedure sets 
err% to 1. The error handling 
procedure itself will look something 
ike this: 


REPORT: PRINT" at 
PRINT*Press a key to continue" 
REPEAT UNTIL GET 

ENDPROC 


Error number 17 is “Escape”; if this 
occurs we must set err% to zero since 
we actually want the program to run 
through the main loop again rather 
than return to where Escape was 
pressed. “Not found" is error number 
214; here we have printed a very 
simple message, but you could do 
something more elaborate if desired. 
АП other errors are merely reported, 
and finally the procedure prompts for 
а keypress and waits until it has been 
made. 


In a complex program of course, error 
handling will probably need to be 
much more elaborate. However, this 
simple example gives you some idea 
of the techniques involved. 


One final point that really needs to be 
made is that your program should 
wherever possible be written in such a 
way that errors do not occur in the 
first place - in other words you should 
not just rely on Basic to report things 
which could have been avoided. An 
example might be where the user has 
to type in some input; if you check 
what is entered (or in the case of 
numbers, say, only allow numerals to 
be entered in the first place), you will 
avoid errors later such as the problem 
with EVAL mentioned earlier. You 
should always aim to pre-empt errors 
in this way and treat the error handler 
as a last resort. 
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Best 


Applications I Dise 


TEXT Business GRAPHICS - for producing graphs, charts and diagrams 
x 2 ViDEO CATALOGUER - catalogue and print labels for your video 
cassettes 
+ PHONE Воок - an on-screen telephone book which can be easily 
edited and updated 
E PERSONALISED LETTER-HEADINGS - design a stylish logo for your 
letter heads. 
т APPOINTMENTS DIARY - а computerised appointments diary 


MAPPING THE BRITISH 18155 - draw а map of the British Isles at 

any size 

T ‘SELECTIVE BREEDING - a superb graphical display of selective 
breeding of Insects 

‘Tae EARTH FROM SPACE - draw a picture of the Earth as seen 

from any point in space 

PERSONALISED ADDRESS BOOK - on-screen address and phone book 

Pace DESIGNER - a page-making package for Epson compatible printers 

Wortp ву NiGHT AND DAY - a display of the world showing night and day for any time and date of the year 


File Handling for AM 
on the BBC Misro and Avorn Archimedes 
by David Spencer and Mike Williams 


Computers are often used for file handling applications yet this is a subject 

which computer users find difficult when it comes to developing their own 

programs, File Handling for All aims to change that by providing an extensive 

and comprehensive introduction to the writing of file handling programs with 

particular reference to Basic. 

File Handling for All, written by highly experienced authors and programmers David 

Spencer and Mike Williams, offers 144 pages of text supported by many useful program 

listings. It is aimed at Basic programmers, beginners and advanced users, and anybody interested in File Handling 
and Databases on the Beeb and the Arc. However, all the file handling concepts discussed are relevant to most 
computer systems, making this a suitable introduction to file handling for all. 

‘The book starts with an introduction to the basic principles of file handling, and in the following chapters develops 
an in-depth look at the handling of different types of files e.g, serial fes, indexed files, direct access files, and 
searching and sorting. A separate chapter Is devoted to hierarchical and relational database design, and the book 
concludes with a chapter of practical advice on how best to develop file handling programs. 


The topics covered by the book include: 
Card Index Files, Serial Files, File Headers, Disc and Record Buffering, Using Pointers, 
Indexing Files, Searching Techniques, Hashing Functions, Sorting Method: 
‘Testing and Debugging, Networking Conflicts, File System Calls 


‘The associated disc contains complete working programs based on the routines described in the book and a copy of 
Filer, a full-feature Database program ori published in BEEBUG magazine. 


ASTAAD 


ыле дыд e B= B' Enhanced ASTAAD CAD program for the 
Master, offering the following features: 


Ж full mouse and joystick control 

ж built-in printer dump 

Ж speed improvement 

Ж  STEAMS image manipulator 

Ж — Keystrips for ASTAAD and STEAMS 

Ж Comprehensive user guide 

* Sample picture files 

Stock Code Price Stock Code Price 

ASTAAD (80 track DFS) 1407a 4598 — ASTAAD (3.5 ADFS} 1408a 25.95 
Applications П (80 track DFS) а Па 2400 Applications П (3.5 ADFS) 14l2a #400 
Applications I Disc (40/80TDFS) 140a £4.00 Applications I Dise (3.5' ADFS) 14092 58400 
General Utilities Disc (40/80T DFS} 1406а £400 General Utilities Dise (25r ADFS) 1413 — £4.00 
Arcade Games (10/80 track DFS) PAGla 8505 Arcade Games (2.5 ADFS} PAG2a — £5.95 
Board Games (10/80 track DFS) PBGla £5.95 Board Games |3.5 ADFS) PBG2a £5.95 


All prices include VAT where appropriate. For p&p see Membership page. 


Board Games 


SOLITAIRE - an elegant implementation of this ancient and fascinating 
one-player game, and a complete solution for those who are unable to 
find it for themselves 

Коц, oF HoNOUR - Score as many points as possible by throwing the 
five dice in this on-screen version of "Yahtae. 

PATIENCE - a very addictive version of one of the oldest and most 
Popular games of Patience, 

ELEVENSES - another popular version of Patience - lay down cards on 
the table In three by three grid and start turning them over until they 
add up to eleven, 

(CruBBAGE - an authentic implementation of this very traditional card 
game for two, where the objectis to score points for various combinations and sequences of cards. 
Тарор - a close relative of Sam Lloyd's sliding block puzzle and Rubik's cube, where you have to move numbers round a 
grid to match a pattern. 

CHINESE CHEQUERS - a traditional board game for two players, where the object is to move your counters, following a 
pattern. and occupy the opponent's field. 

‘Aces Hion - another addictive game of Patience, where the object is to remove the cards from the table and finish with the 
aces at the head of each column. 


Applications M Dise 


‘CrossworD Eprrom - for designing, editing and solving 
crosswords 

Mowry Desk Diary - a month- 
be printed 

SD Lanpscares - generates three dimensional landscapes 
REAL Тіме CLocK - a real timc digital alarm clock displayed on 
the screen. 

RUNNING FOUR TEMPERATURES - calibrates and plots up to four 
temperatures 

JULIA SETS - fascinating extensions of the Mandelbrot set 
FOREIGN LANGUAGE TESTER - foreign character definer and 
language tester 

SHARE INVESTOR - assists decision making when buying and selling shares 

LABEL PROCESSOR - for designing and printing labels on Epson compatible printers 


-view calendar which can also 


Arcade Games 


GEORGE AND THE DRAGON - Rescue Hideous Hilda’ from the flames іш 
of the dragon, bul beware the flying arrows and the moving holes on 
the floor. nP. 
EBONY CASTLE - You. the leader of a secret band, have been 
captured and thrown in the dungeons of the infamous Ebony Castle. 
Can you escape back to the countryside, fighting off the deadly 
spiders on the way and collecting the keys necessary to unlock the 
coloured doors? 

Kwiour Quest - You are a Knight on a quest to find the lost crown, 
hidden deep In the ruins of a weird castle inhabited by dangerous 
monsters and protected by a greedy guardian. 

PITFALL PETE - Collect all the diamonds on the sereen, but try not to 
trap yourself when you dislodge the many boulders on your way. 
BUILDER Bos - Bob is trapped on the bottom of  bullding that's being demolished. Can you help him build his way out? 
MINEFIELD - Find your way through this grid and try to defuse the mines before they explode, but beware the monsters 
Which increasingly hinder your progress. 

Manic MECHANIC - Try to collect ай the spanners and reach the broken-down generator, before the factory freezes up. 


QUAD - You will have hours of entertainment trying to get all these different shapes to fit. 


Stock Code Price 


File Handling for All Book ВКО £995 
File Handling for All Disc (40/80Т DFS) BK05a — £4.75 File Handling for АП Disc |3,5" ADFS) BKO7a 
Joint Offer book and disc (40/80T DFS) BKO4b £11.95 Joint Offer book and disc (3.5 ADFS) BKOGb 
Magscan (40 DFS) 0005a 8995 Magscan Upgrade (40 DFS) 0011a 
Magscan (807 DFS) 0006a — £9.95 Magscan Upgrade (80T DFS) 0010а 
Magscan (3.5` ADFSJ 1457а 5995 Magscan Upgrade (2.57 ADFS) 1458a 


All prices include VAT where appropriate. For p&p see Membership page. 


Stock Code Price 
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£478 
£11.95 
£475 
£475 
£475 
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This month 
we'll start to 
investigate a 
simple-to-use 
back-up system based on readily 
available software. 


e 
“д 


For my examples I'll use PKZIP, but first, 
thanks to Howard Smith for providing 
information on an early version of 
Flexibak and to David Harper for 
supplying a copy of the latest version, 
now called Flexibak Plus. More on these 
next month. 


GETTING ORGANISED 

Whatever back-up system you use, your 
first thoughts should be about how 
you'll want to secure your files and how 
they might need to be recovered. You 
won't always have had a total disaster, 
$0 you won't always want a complete 
recovery, and it could even be just one 
file. 


To plan the job, mentally divide your 
data and programs into logical chunks, 
each of which can be processed 
separately as and when required, not just. 
as part of the whole. I'll explain this 
concept in more detail later, using my 
own data to illustrate. Your approach 
will depend to an extent on the facilities 
in the software used, but some 
generalisations apply, whether you're 
floppy or hard disc based. That said, the 
two disc types also impose constraints of 
their own which must be considered. 

Hard disc users really must plan back- 
ups more carefully than floppy users, 
because no matter what tools are used 
there's no way the contents of even a 
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un by Robin Burton 


small winchester will fit onto a single 
floppy. 


By contrast floppy users store files on 
separate discs already, so back-up 
planning might seem unnecessary. Not 
so! If the crude approach of whole disc 
copies is your method there are gains to 
be made, potentially spectacular ones, 
when data compression is employed. 
Files from a particular application might 
fill several floppies, but the number of 
back-up discs can be reduced dramatically 
if the data is compressed. Equally 
important, securing and recovering can 
be very much quicker than direct copies, 
as we'll see later. 


The best approach also depends on the 
type of file and whether new files are 
continually created, or more typically 
only existing ones are updated. If your 
back-up system is currently not very well 
organised (perhaps even if you think it is) 
here are some ideas to consider. 


Let's illustrate extremes by assuming the 
system is used for only one application. 
If the task is producing letters and 
reports, it’s likely new files will 
continually be created. If a permanent 
disc record is needed, each new file must 
be included in your back-ups. 
Alternatively, if the sole use of the 
system is for a database new files won't 
be created very often, perhaps never, 
once the system is set up. Here the need 
is to secure the latest versions of existing 
files as they’re updated. 


Like most users I’m somewhere between 
the two extremes, usually amending 
files, but occasionally creating new ones 
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too. Some compromise is inevitable, but 
you should still tune your data 
organisation and back-up strategy to suit 
your needs. The ideas here are food for 
thought and, while some points may be 
obvious, its unlikely that there's no room 
for improvement, unless you're very well 
organised. To a degree hard disc users 
have to be more organised, while floppy 
users can be a bit more flexible in their 
arrangements, but both might benefit 
from a bit more thought. 


REDUCING THE WORKLOAD 
The first point is that efficient security 
means saving time, which means 
selective back-ups, and avoiding 
duplicated effort is the biggest step you 
can take towards speeding up the job. 
This will be harder if your programs and 
data aren't organised with this in mind in 
the first place. 


Applications usually have a number of 
files, even a word processor probably has 
overlays, one or more dictionary files, 
various printer related files, plus help and 
configuration data too. As an example, the 
volume of data in my word processor is 
460K contained in ten files. Although 
word processing is a ‘simple’ application 
(some are much worse) it's a big help not 
to secure such files unnecessarily. 


Remember too that EXE files (256K of my 
total) and dictionaries (107K) are less 
likely to compress well, so here's almost 
half a megabyte of back-up which I don't 
repeat unless there's a good reason. 


Obviously, if different file types are 
mixed together in the same directory 
selective back-ups (and recoveries) will 
be more difficult. If you can't separate 
the different types of files, you'll be 
continually re-securing application files 
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that haven't changed - а valuable waste 
of time and disc space. 


Mind you, even if you have original 
issue discs, don't think you needn't 
secure your applications. Remember, 
configuring some applications to your 
particular requirements can be quite a 
lengthy job, and one that's best avoided 
unless there's a good reason for it. If 
problems force you to re-copy an 
application you'll have to repeat the 
entire installation process again, unless 
you have a secure copy of the fully 
configured working system. 


Applications should certainly be secured, 
but only once. It shouldn't be done just 
because you're securing data after a work 
session. Keep application files and data 
files either on separate discs, or at least in 
separate directories and then, with even 
the simplest procedures, you can secure 
the application once, and thereafter save 
time by securing only the data. 


This also simplifies recovery, since it 
allows easy recovery of data, applications, 
or both when necessary. Mix them 
together and recovering the just the data, 
or just the application becomes much 
harder, if not impossible. 


MAKE LIFE EASY 

The biggest step towards back-up 
reliability is automating the process as 
much as possible. Why? Two main reasons. 


The first is subjective - if the system's 
easy to use, it will be easier to discipline 
yourself to use it. If it's fiddly or involves 
too much effort, human nature says it 
won't be done as often as it should be. 
The second reason is that during back- 
ups mistakes will be far less likely. A 
fixed routine which is tried and tested 
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doesn't offer much chance to introduce 
new problems. 


Using an essentially manual system, like 
PKZIP, two standard facilities (ie. free 
and available) will help. The first is batch 
files, the second is on, which is 
frequently overlooked. Redirection can 
provide extra control or a range of 
options simply and with total reliability. 


Now let's look at real examples. These 
are based on my routines for securing 
Essential Software's files. The data 
structure is simple, one directory called 
ES, in the root directory of my hard disc, 
contains everything belonging to ES. 
Source files, issue disc contents, and 
sundry data files are all stored in one 
level of sub-directories within ES. I won't 
list the whole structure, but, part of it 
looks like this: 

NES 

NESNDEV 

\ES\NEWPROGS 

NESNSOURCES 

\ES\RAMDISC 

\ES\PRTSCRN 

\ES\SUPRSTAR 
гапа so on, totalling 22 subdirectories 
containing about 3.25Mb of data. 


DEV and NEWPROGS are development 
and testing directories, so their contents 
tend not to remain fixed for long. 
SOURCES changes less often, only when 
а modification to an existing program is 
completed or if a new one is added. 


Finally, from RAMDISC onwards, the ES 
issue directories are virtually static, the 
only changes being bug-fixes (none for 
years, of course) or if a spelling error or 
‘typo’ is corrected іп the documentation. 


You can see, given that the initial back- 
up included everything, I need to secure 
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DEV and NEWPROGS fairly frequently, 
SOURCES less often апа issue 
directories rarely if ever. Apart from the 
differing frequency required by these 
back-ups, the total volume of ES, even 
compressed, is obviously far too much to 
fit onto a single floppy. So how do I 
handle it? 


REDUCING RISKS 

Like other systems, PKZIP can create 
single archives spanning multiple 
floppies, but it’s an option I prefer not to 
use. Instead the ES back-up is split into 
three jobs, one for DEV and NEWPROGS, 
one for SOURCES, and one for the issue 
directories. You might favour multi- 
volume archives but I don’t, here’s why. 


First, if one disc in a multi-volume set 
becomes faulty, the whole set is at risk. 
Perhaps you can re-create a faulty disc 
from a duplicate copy of the set, but 
remember that this requires an exact 
duplicate; nothing else will do. If each 
back-up disc is independent and one 
develops an error, the worst that can ever 
happen is that you lose the contents of 
that one disc; it can’t affect the rest. 


Second, when you update a multi- 
volume set (in all the systems I know) 
you have to update several if not all of 
the back-up discs each time. At best this 
is likely to be the first disc (holding the 
index), the disc or disc’s containing the 
files to be updated and the last in the set 
(or an extra disc) which is where copies 
of amended or new files are usually 
added. As mentioned, if you're wise 
you'll have two exact duplicate sets, so 
you actually have to do the whole job 
twice, or copy each of the amended discs 
every time, (but beware, if you use COPY 
and miss a disc, or there’s an undetected 
error in the first set....!). 
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The 'independent disc' approach avoids 
all this. The only discs you handle are 
those containing amended files, and so 
long as your back-up software is fast 
enough (mine is), you simply make two 
originals of every back-up disc. 


Spanned-volume archives are inflexible 
and seem to offer no benefits to balance 
the inconvenience and potential risks. You 
can disagree, but I have had a case (only 
one admittedly, but it's enough) where 
both copies of a back-up disc were faulty. 


PERFORMANCE 

Last month I said that PKZIP commands 
could become complex. However, they 
don't have to be, so let's take a look. The 
general format of the command is: 

PKZIP [option] <archivename> [file-list] 
where [option] can be one or several 
action modifiers, «archivename» (which 
can include a drive/path specification) is 
the output archive's filename and [file- 
list] is a list of files to be processed. 


If omitted [option] defaults to ‘add’, which 
writes a new version of all (source) files to 
the archive, whether the file or the 
archive already exists or not - if they 
don't they're created. By default [file-list] 
is everything in the current directory if no 
list is supplied. The archive name must be 
specified of course, but the extension .ZIP 
is added automatically. 


Suppose then I want to secure the entire 
contents of ES\SOURCES to drive A:. If 
my current directory is ES\SOURCES 
and the archive is called ES_SRCES, the 
command can be as simple as: 
PKZIP A:ES_SRCES 

Everything but the archive path and 
name are defaulted, so this couldn't get 
much easier. 
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1 also said compressed archives are much 
more efficient than direct copies, so by 
how much? ES\SOURCES contains 51 
files totalling 1.628Mb. This, of course, 
would need at least two 800K floppies 
using COPY, perhaps three, but I tried it 
to quantify the task. 


After 2 mins 55 secs the expected ‘disc 
full’ message appeared, with 29 files 
copied. I lost interest at that point 
because copying the remaining files 
would obviously take a great deal of 
manual entry, hence the next disc (or 
two) would take very much longer. Let's 
be very generous and suppose the whole 
job could be done in 10 minutes. 


Next I timed the job using PKZIP version 
2.04g. The results speak for themselves. 
ES SRCES.ZIP was completed in under 
three minutes, it contained all the files, 
and was less than 325K. This is a 
compression ratio of better than 5:1, or 
put another way I could get over twice as 
much data on the disc in less time than 
taking one direct copy. Of course, this 
data was text so compression should be 
good, but the comparison is valid 
because the same real data was used 
which was identical in both cases. 


What about a ‘poor’ example, so as not to 
be accused of bias? OK. I also archived 
my word processor's directory to drive 
A:, producing an archive file of 250K in 1 
min 40 secs. The compression is very 
impressive and worthwhile, especially 
given the file types, but here the elapsed 
time was slightly more than for a direct 
copy (1 min 18 secs). 


This further reinforces the earlier point, 
that securing applications should be 
avoided unless it's justified by changes in 

Continued on page 38 
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Alan Blundell is pleasantly surprised by the amount of new PD 
software which he has come across recently. 


Having only recently written in this 
column that the amount of new PD 
software appearing was in decline, this 
month I'm going to cover the largest set 
of new discs I've ever added to my 
library in one month! 


For Electron users, I'm pleased to 
announce the availability of ELBUG. As 
I'm sure readers will know, ELBUG was 
the sister publication to BEEBUG, many 
years ago now (before RISC User had 
even been thought of). It ran for 22 issues 
before being discontinued and I have 
received permission to distribute all of 
the software discs associated with the 
magazine. I’ve prepared 3 discs (in ADFS 
"M' format) which hold all 22 issues 
worth of software. I won't go into the 
contents of the discs in detail here, 
except to say that much of the software 
associated with ELBUG consisted of ‘Elk’ 
versions of programs featured in early 
volumes of ВЕЕВИС. It is however, one 
of the few software collections which is 
guaranteed to be fully Electron 
compatible. 


Concerning the early issues of BEEBUG 
itself, I have now finished cataloguing 
the software from volume 2 but am still 
having trouble getting hold of all of 
volume 1 on disc. I have collected a disc 
containing selected programs from 
volume 1, including all of issue 10, but if 
anyone can help with the rest, I would be 
most grateful. 


MAD RABBIT - 

T have also recently been in contact with 
Joel Rowbottom, of Mad Rabbit PD 
(mentioned recently in BEEBUG), and 
we have swapped software to make each 
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of our libraries more complete. The 
software that he has kindly sent to me, 
all of which I had not seen before, 
includes a collection of AMPLE software 
for the Music 5000 add-on, some original 
Basic music programs (so there are no 
copyright problems) and discs of text 
files of interest to Star Trek and Red 
Dwarf fans. There is some entertaining 
material on these last discs, although I 
found some of the humour on the Star 
Trek disc a bit esoteric, and probably 
most suited to the real addict. 


Ialso obtained a copy of C. J. Richardson's 
STD Code Directory. This disc-based set 
of data has been available for some time, 
but he has added a controlling program to 
enable searching by town name or by 
STD code. I have occasionally used 
programs such as this to check the part of 
the country from which items have been 
offered for sale іп classified 
advertisements (there is a similar, but 
unrelated, MS DOS based program which 
is available for the Master 512 co- 
processor). 1 am pleased that there is now 
a version available for the BBC Micro. 


EDUCATION 

Quite a long time ago now, I gained 
permission to distribute software 
which was produced as part of the 
Microelectronics in Education Project. 
The MEP was an educational project in 
the early 1980's which resulted in the 
production of a range of software, 
primarily for schools, aimed mainly at 
junior age children. I am therefore now 
pleased to have four volumes of MEP 
software. The programs are well 
produced and are useful for a variety of 
educational uses with young children. 
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The do have a definite ‘80s’ feel about 
them, though. 


The four volumes comprise thirty 
different programs in all, and cover a 
wide range of subjects, although they 
follow no particular sequence or theme. 
АП of the programs work with disc 
systems, but were written at a time when 
disc drives were an expensive rarity, in 
1983. Programs which use data files, 
therefore, expect to be using tape. Some 
which I have tested seem to work with 
DFS and ADFS data files, but others do 
select *TAPE, although they should not 
be too difficult to modify (by removing 
the “ТАРЕ commands). I will give a few 
examples, because educational software 
seems to be a particular interest for a 
number of readers. 


Volume 1 contains Crash, which requires 
the use of counting and logic to solve a 
problem; Shopping, where the child must 
buy five items, from a choice on a 
shopping list, within a budget; Quiz, a 
multiple choice quiz package, complete 
with a quiz designer; Animal, а simple 
artificial intelligence program that learns 
from the answers given to questions and 
builds up a knowledge base, and Farmer, 
à version of the old logic problem which 
involves a farmer who has to get a hen, a 
dog and a sack of corn across a river; and 
others. 


Volume 2 contains a similarly varied 
collection. Amongst others, there are: 
Eureka, a simulation of a bath, where the 
child has to perform a series of actions in a 
logically thought out order; Fraction Snap, 
a game for practising fractions; and 
VennMan and VennKid, two programs 
designed to help with the learning of sets. 


In volume 3, I particularly noticed the 
program, Brickup, which is designed to 
help children to become familiar with the 
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use of a dictionary. Volume 4 includes 
Spike, which helps with early number 
work by asking the child to count in 
units, tens and hundreds; Box, which 
helps with the recognition of word 
shapes; and Symmetry, which provides 
practice in the recognition of lines of 
symmetry in a 2 dimensional shape. 


These are just examples from the four 
volumes. All in all, I thought the set was 
well worth a look if you have children in 
the age range 7 - 11. 


I have seen quite a lot of similar 
educational software, seemingly designed 
for school use, but possibly of interest to 
parents. Unfortunately, I haven’t been able 
to track down anyone who can tell me if it 
would be legitimate to circulate copies. 
Much of the software seems to have been 
written by individual teachers to help 
with the teaching of particular points, but 
there are also many other packages, which 
give no sign of copyright or of commercial 
links, that may be of interest to a wider 
audience. If anyone can help with the 
identification of such software and with 
the permission to distribute it, I would be 
pleased to hear from them. 


ADDRESS 

I have heard from other contributors to 
BEEBUG that some readers have 
contacted them asking for my address. I 
thought that it was fairly well known by 
now, but if you can help with the search 
for volume 1 of BEEBUG or for 
educational software, or if you want to 
get in touch with BBC PD or myself, in 
relation to this column, my address is: 


Alan Blundell, 
18 Carlton Close, Blackrod, 
BOLTON, BL6 5DL. 


Next issue, I plan to cover more of the software 
which I have recently received. 
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A Room with a View 


Kieren Hollingsworth gives some hints to View users. 


For me, View has stood the test of time. 
Despite taking possession of a PC and 
Wordperfect, Т still turn to my trusty Beeb 
when it comes to typing. However, over 
the years I have used View, I have 
encountered several little annoyances 
and devised my own ways of getting 
round these, which I shall outline here. 


EIGHTY CHARACTER MODES 
One of the attractions of View is that it 
allows you to type in and view text in 
eighty character modes (really 74 
characters allowing for command 
spaces), as long as enough memory is 
available. Therefore, it is often 
convenient to create your text in mode 3 
and use the standard ruler for this 
mode. This is achieved best by typing 
MODE 3 (MODE 131 on a Master) 
followed by *WORD. The word 
processor will then assume the desired 
ruler. Entering the commands the other 
way round will result in the ruler for 
the previously used mode appearing. 
This can be corrected by typing NEW 
before beginning to type. 


On a standard television set, the small 
characters can be rather blurred and 
difficult to read. Switching the colour 
off on the set will sharpen them. 
Another way of improving readability is 
to change the colour of the display: the 
easiest way to do this is to issue a 
VDU19 command to substitute different 
colours for the standard black and 
white. This can be done by moving to 
the command screen and using a series 
of Ctrl-key combinations with letters on 
the keyboard. For example, to create 
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black writing on a white background, 
the ordinary commands would be (in 
mode 3): 


VDUI9,0,7,0,0,0 
VDU19,1,0,0,0,0 


For these do the following: 


Ctr1-S-0-7-0-0-0 
Сет1-5-1-0-0-0-0 


The numbers аге the standard colour 
numbers used by the Beeb. The colour 
will not change until the last Ctrl-0 has 
been pressed. Thus to create blue text on 
a yellow background, use the sequence: 


Ctrl-S-0-3-0-0-0 
Ctr1-S-1-4-0-0-0 


SET STANDARDS 

Once you've found a format that suits 
you, and you've created your own ruler, it 
is a good idea to save it by itself, and 
recall it at the beginning of each new 
piece of text. Once loaded, use the NAME 
command to change the default name to 
the name you will want to save the 
complete text under, such that simple 
SAVE commands can be regularly issued 
to record alterations and guard against 
outside gremlins. А note of warning: even 
if the ruler is reloaded, View always 
switches formatting and justification back 
on regardless of their state at the time of 
saving: this can be annoying if you find 
your text justified when it is not required. 


GOING BOLDLY ONWARDS 
The bold and underline features are quite 
simple to use, but a few points need to 
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be borne in mind; firstly, that underlining 
will cancel itself automatically at the end 
of each line whereas the bold will remain 
active until a second bold symbol is 
encountered. Forgetting this will waste 
paper! Also, although the symbols take 
up а character space on the screen, the 
computer makes an adjustment at the 
end of each line to achieve the correct 
line length. The default printer driver 
also underlines spaces. 


Therefore, when creating tables, write 
the table on screen with headings, then 
use the insert mode (Ctrl-f4) to add 
spaces in front of or after those headings 
for which the codes are required, and 
then insert the codes. The spaces just 
entered will disappear. It gives a 
stuttered effect on screen but the 
printout will be correct. 


CHECK YOUR SPELLING 
CHECKER 

The following problems are ones 1 have 
encountered using Computer Concept's 
Spellmaster with View, although the 
following comments may well apply to 
other checkers. Sometimes, when 
memory is tight, the computer will 
“hang” during spell checking and there 
is no alternative but to destroy the text, 
so save it first (and often)! 


Another thing to be aware of is that after 
the spelling checker has substituted words 
of a different length to the original 
misspelling, the line may no longer be 
formatted or justified correctly. The most 
comprehensive way to deal with this is to 
complete the spelling check and then start 
at the beginning of the text and 
continually press FORMAT PARAGRAPH 
(f0) through to the end. Tables should be 
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skipped over manually or the alignment 
of the table could be ruined. 


DRIVING YOUR PRINTER 

View's extended features such as bold 
and underline can only be used with a 
printer driver tailored for the 
individual printer. The standard driver 
provided with View Version 3.0, FX4, 
allows use of bold and underline on 
most printers. For other facilities, it is 
likely that a driver will have to be 
created using the supplied program. 
For Citizen 120-D users, the driver 
published in BEEBUG Vol.5 No.9 seems 
to work best. 


Readers may also like to refer 10 the View 
Printer Driver published in last month's 
BEEBUG (Vol.12 No.4). This driver 
emulates the Epson LQ-850, and can be 
readily customised to work with most 
printers attached to the Beeb. 


Another thing that may annoy is View's 
insistence on leaving large spaces at the 
top and the bottom of every page. To get 
rid of these, enter editing mode, create 
four blank lines at the top of the 
document (using f6) and enter the 
following commands using Shift-f8 


mo 
HM 0 
РМ 0 
BM O 


This will then print the whole page. You 
could of course add these commands to 
your template file, as discussed earlier 
in the article, so that they are always 
used when you create a new document. 


Happy Viewing! B 
37 


512 Forum (continued from page 33) 


the installed software. Despite the result 
though, archiving of applications is still 
worthwhile as we'll see when we look at 
recovery. 


DEVELOPING A SYSTEM 

Securing a single directory is so simple it 
doesn't justify a batch file, but when 
things get more complicated this is 
worthwhile. Next month I'll explain how 
ES back-ups work, using parameter- 
driven batch files. If you didn't realise it, 
this means I'm leaving you with a little 
puzzle. 


No problem? OK, try this. Create a batch 
file MAIN.BAT containing the following 
lines. 

B 

%2 


Magsca 


Comprehensive Magazine Database 
for the BBC Mi 


Now create three more, ONE.BAT, 
TWO.BAT and THREE.BAT, each of 
which simply announces itself on screen 
ONE.BAT should contain ECHO This is 
ONE.BAT and so on. Now enter: 

MAIN ONE TWO THREE 

You might expect that, with these 
parameters, MAIN will call ONE.BAT, 
followed by TWO.BAT then THREE.BAT. 
It doesn't! The puzzle is to see if you can 
make MAIN work before next month's 
Forum. Oh yes, І almost forgot! MAIN 
must be able to run any combination of 
ONE.BAT, TWO.BAT and THREE.BAT, 
from one to all three, in any order. 


Add or change anything (except the 
names) but use only standard batch 
commands. Extra files (batch or otherwise) 
programs and manual interference are not 
permitted. See you next month! 8 


ro and the Master 128 


Ап updated version of Magscan, which contains the complete indexes to all BEEBUG 
magazines from Volume 1 Issue 1 to Volume 11 Issue 10 


Magscan allows you to locate instantly all references to any chosen 
subject mentioned anywhere in the 110 issues of BEEBUG 


* to date 


ma 


Just type іп one or two descriptive words (using AND/OR logic), 
and you can find any article or program you need, together with a 


brief description and reference to the volume, issue 
numbers, You can also perform a search by 
volume number. 


The 


Magscan database can be са 
azines, Ant 
existing. Magscan users 
Some of the features Magscan offers include: 
© full access to all BEEBUG magazines 
Ф rapid k 
+ flexible search by volume number, article type 
and up to two keywords 

% keyword entry with selectable AND/OR logic 
% extensive on-screen help 
hard copy option 
% easily updatable to include future magazines 
yearly updates available from BEEBUG 

RISC Developments Ltd, 117 Hatfi 
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yword search 


Road, St Albans, 


d page 
ticle type and/or 


ily updated to include future А 
al updates are available from BEEBUG for е š 


PrE to continue 


Magscan with disc and manual £9.95+ pep) 


Stock codes- 0005а 5 25"disc 40 track DFS 


0006a 5. isc 80 track DFS 

1457а 3.5" ADFS disc 
Magscan update 54.75+р&р 
Stock codes: Olla  5.25'disc 40 track DFS 

0010а 5.25'disc 80 track DFS 

1458а 3,5" ADFS disc 


ris ALI 4:5. Tel 0727 840303 Fax 0727 860263 
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Census (Part 3) 
This month Paul Goldsmith displays your frequency distributions. 


Before these programs can be used it is 
necessary to go back to the text file 
<code>qtx and amend it by changing 
QUE to HED and shortening the answers 
to 7 characters only. This requires a little 
ingenuity but you need to change it to 
something like this: 

SHOP 

HED 

Shopping Survey 

8 


200 

10 

What is the purpose of your visit ? 

ShoppnG 

Cinema 

Theatre 

Market 

Castle 

Museum 

Tourism 

meal 

Bank/BS 

HseAgnt 

17 
When the text has 
been changed, save 
it as <code>htx in 
straight ASCII as 
before. Run CREATE 
and select HED 
instead of QUE and 
the program will 
create the required 
file <code>HED. Now type in the 
program Freqdi as listed below. Add 
PROCblue and PROCt from the first 
article and save the program as Fregdi 


betina 
RPR terrier 


Press SPACE Te mema 


To use Freqdi from the Analyse menu 
(option 2), you must first calculate the 
frequency distributions (option 1). In 
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Figure 2. Data as a graph 


QUESTION 2 What Kind of Shopping? 


Groceries 
Vegetables 


oes. 
Clothing 

Books: 
Neuspapers/Periodicals 
Elecrical/Lighting 
White Goods 
Cosnetics/Chenist 


289.08 


Press SPACE for next Question SHIFT to page on 


Figure 1. Data presented in text form 


Freqdi you can have 
the distributions of 
the answers to each 
question printed 
out, either as text or 
a graph. You also 
have the option to 
save the graph or 
text to disc for use 
elsewhere. Apart 
from the obvious 
use in a word 
processor the saved 
frequencies can be 
used by Viewplot as 
follows. 


First READ the file into View and ensure 
that there are two blank lines above and 
below the lines of data. Use Shift-f7 to set 
markers 1 & 2 at the beginning of the 
lines, two lines above and two lines 
below the data. Use WRITE «filename» 1 2 
to save this block using a different file 
name. 
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Before saving the block, ensure that there 
are no spaces in the answers in the left 
column. These are best filled in with the 
underline character below the pound 
sign on the keyboard. 


Save a separate file for each question 
and, after running Vieuplot, select option 
1 (Edit Data) and use f5, Read Spooled File, 
to load the file. In reply to “Data format:” 
press key 5. The Title, Labels Name and 
Y-axis name must then be added to the 
screen. Use f3 and enter a filename to 
save the Viewplot Data set. 


The normal Viewplot processes can then 
be followed. If the plots are in mode 0 it 
is possible to dump the screen using 
Ctrl+f8 and read this into a Desktop 
Publishing program, such as Wapping 
Editor, to add detail or present them on a 
page. Beebug's Astaad can also be used to 
embellish the screen beforehand. 


If a full sideways A4 page print is 
required, the Dumpmaster ROM can be 
used. This ROM will also drive a colour 
printer when the plot is in a colour mode. 


In next month's final part we will add the 
cross tabulation display. 


10 REM Program Freqdi 

20 REM Version B 1.0 

30 REM Author Paul Goldsmith 

40 REM BEEBUG October 1993 

50 REM Program Subject to Copyright 

60 : 

100 REM ONERROR PROCerr 

110 PROCcode 

120 DIMT$(J%) , AS (J%) Z8 (HS, HB) , AS (US, H 
$) :Кер$=" * :VDU15:MODE135:REM MODE 7 for 
[BBC B . 

130 PROCCode 

140 PROCgetparam 

150 PROCdata 

160 MODE 135:PROCt (3, "Frequency Distri 


bution*):REM MODE 7 for BBC B 

170 PRINTTAB(8,7)*M E N U " 

180 PRINTTAB(3, 10) "DISPLAY FREQUENCY D 
ISTRIBUTION 1* 

190 PRINTTAB(3,12)"DISPLAY BAR CHART 

2 
200 PRINTTAB(3, 14) "QUIT 
3 

210 PRINTTAB(3,20) ;Rep$ 

220 PRINTTAB(3,23) "PRESS NUMBER" 

230 “ЕХ 15,1 

240 G=GET 

250 IF 6-49 MODE 128:PROCdisp:GOTO 160 
:REM MODE 0 for BEC B 

260 IF G=50 PROChist:MODE 128:PROCbar: 
GOTO 160:REM MODE 0 for BEC B 

270 IF G-51 CHAIN"ANALYSE" 

280 END 

290 : 

1000 DEF PROCdata 

1010 ONERROROFF:S$-OPENINS$:PROCefile(S 
%,5$) 

1020 FORX$-1TOJ$ : FORYS=1TOHS : INPUTÉSS,7 
&(X&, Y&) : NEXT: NEXT 

1030 CLOSE#S% 

1040 ENDPROC 

1050: , 

1060 DEF PROCdisp 

1070 PROCquest 

1080 CLS:PRINTTAB(0,28)'Press SPACE for 
next Question SHIFT to page on":VDU28,0 
,21,19,1 

1090 CLS:PRINTTAB(5,5) "PRESS 'P' TO PRI 
INTER"TAB(5,7) "PRESS 'S' TO SCREEN" 

1100 *FX15,1 

1110 A-GET 

1120 @%=&0090А 

1130 PRINTSPC(5) ;Head$ 

1140 INPUTTAB(5) "SPOOL TO VIEW *;5$ 
1150 IF INSTR(*Yy*,S$) INPUTTAB(S) "Name 
of spool file ";Sp$ 

1160 INPUT*Start at Question ?"st$:INPU 
fT"End at Question 2?*"en%:IF A-80VDU 15 
1170 IF INSTR(*Yy*,S$) :OSCLI'SPOOL "+S 
ps 

1180 IFA-80 VDU2 ELSE VDU 15 

1190 FORX&-st$TOené :S$-0:PRINT':PRINTSP 
C(7) ; "QUESTION *;X$;SPC(5) ;A$ (X&, 0) :PRIN 
[T: FORYS-1TOAS (X$) :5%=5%+7% (X$, Y$) : NEXT 


40 
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1200 PRINTSPC(34) ; "No" ; SEC (9) ; "^ : PRINT 
1210 FORY$=1TOAS (X$) :Р=100*78 (x, Y3) /Nu 
mb$: PRINTSPC(7) ;A$ (XB, Y$) ;SPC(23-LEN(AS ( 
XB, Y$))) ; :6$-620008: PRINTZ$ (XB, Y$) ; :6i 
20208: PRINTSPC (5) P 

1220 NEXT: PRINT 

1230 PRINTSPC (7) ; "TOTAL"; 
МТ5РС(18)5%; 
mb$*10000) /100 

1240 REPEMTUNTILGET-32:1F A380 CLS 
1250 @%=&0090А 

1260 NEXT; PRINT’ : PR0Ct ime : VDU3 

1270 IF INSTR(*Yy*,S$) S$: 
POOL, 

1280 РВІМТ""Ргевв SPACE ТО Menu" 

1290 REPEATUNTILGET-32:VDU26 

1300 ENDPROC 

1310 : 

1320 DEF PROChist 

1330 PROChed 

1340 CLS:PROCt(10,'BA R C H À R T") 
1350 PRINTTAB(5,22) "TYPE NUMBER THEN 'R 
ETURN'" : INPUTTAB(5, 10) "Which question *Q 
1$ 

1360 INPUTTAB (5,12) "SAVE SCREEN ";A$ 
1370 IF INSTR(*yY*,A$) INPUTTAB(5,14)*S 
creen name ";N$ 

1380 ENDPROC 

1390 : 

1400 DEF PROCbar 

1410 CLS:PRINT'"Question *;Ql&'A$(Ql$,0 
) :PRINT 

1420 FORX&-1TOAS (01%) : PRINTTAB (0, X$«6) ; 
A$(Ql&,X&):NEXT:PROCplot:IF 6-50 PROCspa 
ce 

1430 *FX15,1 

1440 REPEATUNTILGET-32:VDU20 

1450 IF INSTR(*Yy",A$) OSCLI"SAVE *+Н$+ 
* 3000 8000" 

1450 ENDPROC 

1470: 

1480 DEF PROCplot 

1490 PROCunit:hpos$-300 

1500 уров%-860 

1510 factor$=125/unit 

1520 PROCscale 

1530 FORN&-l TO А%(018) 

1540 MOVE hpos%, vpost-N$*32-32:PLOTL, 0, 
-20:PLOT81, 28 (01%, N$) *factor’, 20:PLOTE1, 


:8$-&20008: PRI 
6-520208 : PRINTSPC (5) (S8/Nu 


Sp$-**:*s 


0,-20 

1550 NEXT 

1560 ENDPROC 

1570 : 

1580 DEF PROCunit 

1590 MB=0 

1600 РОЕН%=1ТОА% (01%) 

1610 IF Z%(01%,N%)>M% М%-7%(01%,5%) 

1620 NEXT:unit-M$/8 

1630 IF unit«-l unit-l 

1640 IF unit»l AND unit<2 unit-2 

1650 IF unit>2 AND unit<5 unit-5 

1660 IF unit>5 AND unit«10 unit=10 

1670 IF unit>10 AND unit<20 unit=20 

1680 IF unit»20 AND unit«50 unit-50 

1690 IF unit»50 unit-100 

1700 ENDPROC 

1710 : 

1720 DEF PROCscale 

1730 VDUS:FORX$-0TO7 

1740 MOVE hpost«x$*125-30,120:PRINT;X$* 
unit:MOVE hpost«X$*125,160:DRAW һроз%+Х% 
*125, vpos$-64 : NEXT: VDUA 

1750 ENDPROC 

1760 : 

1770 DEF PROCspace 

1780 PRINTTAB(2,30);"Press SPACE To men 
ч“ 

1790 ENDPROC 

1800 : 

1810 DEF PROCtime 

1820 “ТІМЕ :REM MASTER only 

1830 ENDPROC 

1840 : 

1850 DEF PROCquest 

1860 ONERROROFF:B-OPENIN G$:PROCefile(B 
4,88) 

1870 INPUT#B, Head$, J8:FOR Х%-1 TO J&:IN 
PUTšB, A% (XB) :FORYS=0 TO А%(Х%):ІМРІЛЯВ,А 
5(Х%,Ү%) :NEXT:NEXT 

1880 CLOSE#B:ENDPROC 

1890 : 

1900 DEF PROCgetparam 

1910 ONERROROFF:C$-OPENINPS: PROCefile (C 
%,P$) 

1920 INPUTšC%,Start%:INPUTš#C%,End%:INPU 
TÉC&, Numb? : INPUTÁCS, Topt: INPUTÁCS, Влах% 

1930 CLOSERCR 


Continued on page 44 
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Text Compression 


by David Peckett 


This month the Workshop 
looks at one way round 
the Beeb Adventurer's 
problem of insufficient 
memory. Indeed, in any 
circumstances where you 
want to store a lot of text, 
the 25K or so that is 
normally available soon 
gets used up. There is, 
however, a way of 
packing text so that you 
can store up to 50% more 
in any given space. 


First, though, a quick 
resume of how characters 
are stored in the Beeb 
and most other small 
computers. Each char- 
acter is allocated one of 
256 so-called ASCII 
codes in the range 0-255, 
and each code fits neatly 
into an 8-bit byte. There 
is also а variable 
overhead, of at least 5 
bytes, for each string of 
characters in the Beeb. 


This is rather wasteful. 
If you're only displaying 
text, you don’t need 256 
characters and can get 
by with around 60: A-Z, 
0-9, plus some punctua- 
tion marks. The exact 
mixture depends on just 
what text you have. 
Now, 5 bits can store 32 
different character codes 
and there are 3 groups 
of 5 bits in two bytes. 


However, if we limit ourselves to only 30 
characters we can pack three into every 
two bytes. Unfortunately, 30 is a bit too 
limiting, so use 60, split them into two 
groups, and allocate a special code to 
switch between the groups. In fact, in the 
early days of computing, this is just how 
characters were stored as normal on 
some mainframe computers. Once this is 
done, all that’s left on the Beeb is to find 
a way of packing three 5-bit codes into 
two bytes. That is exactly what this first 
program will do. 


1000 DEF PROCpackinit 
1010 DIM Key$ (1), cc$(3) 
1020 DIM txtbuf 10000 
1030 Key$(0)- 
* ABCDEFGHIJKLMNOPORSTUVIIXYZ., , * 
*CHRS(13) 
1040 Key$(1)= 
* 0123456789*; /-2«»() '75`_;:.," 
CHR (13) 
1050 ENDPROC 
2000 DEF FNcode(str$, locn’) 
2010 LOCAL bitptrt, chcode$, chptr$, 
code’, kptr, lenstr$,ptri 
2020 chptr&-1 
2030 lenstr$=LEN(str$) 
2040 REPEAT 
2050 — chcode$-FNcd(MID$ (str$, chptr$, 1) ) 
2060 — code&-code$ OR 
chcode$*2^ (10-bitptr&*5) 
2070  bitptri-(bitptr$«l) MOD 3 
2080 — chptr$=chptr&+1 
2090 IF bitptr$-0 THEN PROCpack 
2100 UNTIL chptri-lenstr$42 
2110 IF bitptr$ THEN PROCpack 
2120 =1осп%+рїт% 
3000 DEF FNcd(ch$) 
3010 LOCAL cc$ 
3020 IF chptrü-lenstri4l THEN =0 
3030 cc$-INSTR(Key$ (kptr$) , ch$) 
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4010 


locnt2pt: 
locn$2(ptr 
4030 ptr$-ptr&« 


TEXT COMPRESSION 


er to use capitals only for text 
' to mark the end 


IN THE GAME ‘TWIN VALLI 
CTIONS HINT 


Y LOOK UPON THE 
NEARBY" 


THE GAME 'TUIN VALLEY KINGDOM IN 
RUCTIONS HINT THAT 'AN OLD WISE MAN МА 
Н THE SECRET OF LIFE THAT LIES 


Example of text compression and 
decompression 


PROCpackinit sets up the system, 
reserving a buffer area to hold the 
compressed data - in this example 10000 
bytes, but that’s up to you. It also sets up 
coding strings in Key$(0) and Key$(1). 
The two strings here are good general- 
purpose ones, but you can easily change 
them to suit your own needs. 


Very common punctuation, e.g. space, 
comma and Return, appears in each. This 
can help the compression, as there is less 
need to switch between coding sets. The 
common characters are in the same place 
in each string. Also, the two strings each 
hold a maximum of 30 characters 
Although we can code 32 different values 
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into 5 bits, zero is reserved to mark the end 
of a string while 31 is used as the shift code. 


FNcode() packs str$ into the buffer 
starting at location locn%. Line 2060 
packs the characters, in threes, into 
code% with FNcd() extracting the code of 
each in turn. If the character is not in the 
currently selected coding string, FNcd 
checks the other; if it finds it, it sends 
back the shift code (31), otherwise it sets 
a space. When it reaches the end of the 
string, FNcd returns a zero. 


As every three characters are coded, 
PROCpack puts their coded values into the 
buffer. When it reaches the end of str$, any 
outstanding codes are also stored. On exit, 
FNcode returns the next free address in the 
buffer. This suits the best way of setting 
up a set of compressed strings, as in the 
following pseudo-Basic listing: 


of buffer 


Don't try to run that! You could read the 
strings to be packed from DATA 
statements, the keyboard, or from a disc 
file; the last is probably the most likely. 
At the end of the process, your backing 
store will hold a copy of the compressed 
text all ready to be unpacked by 
whatever program is going to use it. If 
you're writing lots of programs, you'll 
probably have a standard compression 
program, to use every time you need it. 


The unpacking routines will normally be 
part of a completely different program 
from the one which compressed the data. 
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Before you run the procedure you must 
first have run PROCpackinit and loaded 
the compressed data into the buffer. 
Then, by calling PROCdecode() with the 
start address of the packed string, the 
data will be expanded and displayed on 
the screen. I leave you to choose the best 
way of identifying the start of the 
particular code you need. 


5000 DEF PROCdecode (locn’) 
5010 LOCAL cn’, code$, i$, kptr&,ptr$ 
5020 REPEAT 


5030 — PROCunpack 

5040 FOR i$-1 TO 3 

5050 спё=сс% (i$) 

5060 IF cn$»0 AND cn$«31 THEN 
PRINT MIDS (Key$ (kptr$) ,cn$, 1) ; 

5070 IF cn$-30 THEN VDU10 

5080 
kptrt=(kptrt+1) MOD 2 

5090 NEXT 

5100 UNTIL cc$(1)-0 OR cc&(2-0) OR 

cc&(3)-0 
5110 ENDPROC 


6000 DEF PROCunpack 

6010 code$=locn$!ptr$ AND БЕРЕР 
6020 cc$(1)-code$ DIV &400 

6030 cc$(2)-(code& AND &3E0) DIV &20 
6040 cc$(3)-code& AND БІР 

6050 ptr&-ptr$«2 

6060 ENDPROC 
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PROCdecode makes repeated calls to 
PROCunpack, which reads the next two 
bytes from the buffer and splits their 
contents into the corresponding 5-bit 
codes in сс%(). The codes are then used 
to extract data from Key$(), shifting 
between the two character sets every 
time the code 31 is encountered. As soon 
as the procedure reaches a zero code, it 
exits as that is the end-of-string marker 
used. 


The decoding program must have exactly 
the same strings in Key$() as the original 
packing program. If the strings are 
different, the most amazing gibberish 
may appear. There is little point in using 
these routines unless you need to store a 
lot of text. They can never quite reach the 
50% improvement mark, but get very 
near if you use a long string which needs 
as few shift codes as possible. 


А complete demonstration of these 
routines is contained on this month's 
magazine disc. 


This Workshop was first published in 
BEEBUG Vol.4 No.5. The information has 
been checked and updated as necessary for 
compatibility with later machines. B 
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1940 ENDPROC 

1950 : 

1960 DEF PROCCode 

1970 ONERROROFF :C$-OPENIN'CODE' : PROCef i 
1е(С%, "CODE") 

1980 INPUTiCS, FS, J$, HB, KE:CLOSERCE 
1990 D$=F$+"DA":H$=F$+"HED" 
1Code$-F$ e * ****^: PS-FS "PAR" 
2000 ENDPROC 

2010 : . 

2020 DEF PROChed 

2030 ONERROROFF:B-OPENIN H$:PROCefile(B 
,B$) 

2040 INPUT&B,Head$,J$:FOR Х3-1 TO J$:IN 


PUTER, A$ (X$) :FORYÉ-0 TO АФ (XB) : INPUTHB,A 
$(X8, Y$) :NEXT:NEXT 

2050 CLOSE#B:ENDPROC 

2060 : 

2070 DEF PROCerr 

2080 REPORT:PRINT* at line "ERL 

2090 PRINT*Press a key":A-GET 

2100 ENDPROC 

2110 : 

2120 DEF PROCefile(I$, I$) 

2130 IF 1%-0 PRINTTAB(3,19) "File "+I$+" 
not found" :CLOSE#I$ :TIME=0:REPEATUNTIL 

‘TIME=200 :CHAIN" ANALYSE" 

2140 ENDPROC 8 
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Very Big Numbers (Part 3) 


This month Harry Fensom works on square roots. 


This program finds the integer square 
root of decimal numbers with lengths 
up to several thousand digits. The 
principles used are the same as those in 
the addition and subtraction programs 
published in the June edition of 
BEEBUG (Vol.12 No.2). As before, signs 
have to be sorted by the user, as has the 
decimal point, since this is unsigned 
integer arithmetic. 


NOTES ON PROGRAMMING 
METHODS 

Storage and indexing are the same as in 
the + and - programs. The algorithm used 
for calculating the square root uses the 
usual pencil and paper method based on 
the formula (a + b)^2 = а^2 + 2*a*b + b^2. 
This is not recursive, and has the 
advantage of giving the nearest exact 
integer square root of the square number 
just less than the given number. It is also 
accompanied by the remainder. 


The program performs successive 
subtractions and shifts, as in the division 
program (BEEBUG Vol.12 No.3) 
However, in this case, the subtrahend is 
twice the current partial root augmented 
by an extra digit. This is incremented as in 
the division algorithm until the result goes 
negative, whereupon we restore the 
previous result. Because we are not simply 
using + and -, we cannot use the in-built 
decimal mode, and so a subroutine is used 
to do the calculations in decimal and we 
have to look after the carry implicitly. 


USING THE PROGRAM 

Enter the listing as given below and save 
it. When you run it you will be presented 
with: 


maximum Е digi! 
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ter maximum no. of digits 20 


Enter number with a maximum of 20 decimal 


digits; MS Digit first & end with Return 


14657008765434511439 
Square root = 
3828447304 

Remainder 


5929643023 


The square root and remainder of a 
20 digit number 


The value entered here, say x must take 
into account the fact that this operation 
takes longer than those for addition, 
subtraction and division that you may 
have used previously, so start with smaller 
numbers. Follow this number by pressing 
Return and the display will show: 


th a maximum of x 
MS Digit first & end 


r number 


-imal digits, 


You are entering the number from left to 
right in decimal. After this, there will be 
a delay if it is very long, and then the 
result will be displayed. For a maximum 
number of digits of 3000, the delay may 
be of the order of 30 minutes (plus, of 
course, the time it takes you to type in 
3000 digits). The remainder will also be 
given. Adding the latter to the square of 
the root obtained gives the original 
number exactly. This can be useful when 
we are trying to avoid approximations or 
rounding errors when solving problems 
in integers. 


As before, for floating point numbers the 
decimal point has to be fixed by the user. 
For example, to find the square root of 2 
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to say 1000 decimal places, you might set 
the max. to say 2010. Then input 2 
followed by 2000 zeros. Note that you 
must use an even number of zeros 
otherwise you will get the square root of 
20 or 0.2 etc. Also note that the root will 
contain one half, or possibly 1/,x+1, of 
the number of digits in the number 
entered. 


10 REM Program SQRlarg 

20 REM Version B 4.2c 

30 REM Author Harry W Fensom 

40 REM BEEBUG October 1993 

50 REM Program Subject to Copyright 

60: 

100 INPUT"Enter maximum no. of digits 
"mè smaxtamb+2:bytest=maxt/2 

110 PROCinit 

120 PROCassemble 

130 CLS 

140 ?ar$-?opd2p$:ar$?1-opd2p$?1:CALLcl 
ear 

150 ?ar$-?respé:art?1-respi?1:CALLclea 


160 ?ar$-?remp$:art?1-remp&?l:CALLclea 
170 ?ar$-?hdlp$:ar$?1-hdlp$?l:CALLclea 
180 ?ar$-?hd2p$:ar$?1-hd2p$?1:CALLclea 


190 ?tpl$-opd2$M0D256:tpl1$21-opd28DIV2 
56 
200 PROCenter ("number") 
210 CALLsqr 
220 PROCdisplay("Square root ",гевр%) 
230 PROCdisplay ("Remainder ",гетр%) 
240 END 
250 : 
1000 DEF PROCinit 
1010 DIMbu$ maxt,opd2$ bytes$,rest$ byte 
Ss$,rem$ bytes$,hdl$ bytes’, hd2% bytesi 
1020 DIMmc$ &520  * 
1030 opd2p$-&72 
1040 bup&-&74 
1050 tpl$-&76 
1060 tp2%=&78 


1070 tp3$-&7A 
1080 len$-&7C 
1090 mzt-&7E 
1100 x$-&80 
1110 flagi-&82 
1120 гезр%=&84 
1130 cnt$-&86 
1140 ar$-&88 
1150 revé-&8A 
1160 aux$-&8C 
1170 y$-&8E 
1180 
1190 
1200 
1210 
1220 (%-598 
1230 rempi-&9A 
1240 f&-&9C 
1250 re&-&9E 
1260 ddqi-&F8 
1270 oswrch-&FFEE 
1280 ?opd2p&-opd2$M0D256 :opd2pt?1-opd2$ 
DIV256 
1290 ?bup&-butMOD256:bup$?1-bu$DIV256 
1300 ?respt=res$MOD256:resp$?1=res$DIV2 


1310 ?rempi-remiMOD256 :remp$?1=rem*DIV2 
1320 ?mzi-bytes$MOD256 :mz$?1 -bytessDIV2 


1330 ?mx&-maxtMOD256 :mx$? 1 -maxtD1V256 
1340 ?hdlp$-hd1$MOD256 :hdlp$?l-hdl$DIV2 


1350 ?hd2p&-hd2$M0D256 :hd2p&?1-hd28DIV2 


2000 DEF PROCenter (NS) 

2010 PRINT'"Enter "N$" with a maximum o 
f ";m$;* decimal digits;"'" MS Digit fir 
st & end with Return" 

2020 ?ar&-?bup$:ar$?1-bup$?l:CALLclear 

2030 1%-0 

2040 REPEAT 

2050 A1$-GET-48:IFA1$-7918-18-1:VDU127: 
GOTO2050 

2060 IFA1$<10ANDA1$>~1PRINT;A1$; :18?bus 


=А1% 
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2070 1%=1%+1 

2080 UNTILIS-maxiORA1$--35 

2090 ІРІЗ-16070130 

2100 ?len$-(18-2)M0D256:1en$?1-(18-2)DI 
\256 

2110 ?bup$-butMOD256 :bup$?1-bu$DIV256 
2120 CALLinpt 

2130 ENDPROC 

2140 : 

3000 DEF PROCdisplay (N$, TS) 

3010 IFN$<>""PRINT'NS* = "' 

3020 ?аг%=?Т%:аг%?1=1%21 

3030 CALLdisp 

3130 PRINT’ 

3140 ENDPROC 

3150 : 

4000 DEF PROCassemble 

4010 FORpasst=0TO2STEP2 

4020 Р%-пс%: [OPTpass* 

4030 .inpt LDY#0 

4040 LDAlen&:STAcnti 

4050 LDAlent«l:STAcnt$«l 

4060 CLC:LDAbup$:ADCcnt$ :STAbupt 

4070 LDAbup$+1 :ADCcnt +1 :STAbupt+1 
4080 .iloop LDA(bup$),Y:STA(tp1$),¥ 
4090 SEC:LDAcnt$:SBCÉl:STACnt$ 

4100 LDAcnt%+1:SBC#0 :STAcntt+1 

4110 ECCiexit 

4120 SEC:LDAbup$ : SBC#1: STAbup 

4130 LDAbup$+1 :SBC#0 :STAbupt+1 

4140 LDA(bup$),Y 

4150 ASLA:ASLA:ASLA:ASLA 

4160 ORA(tpl$),Y:STA(tpl$),Y 

4170 CLC:LDAtp1$:ADC#1:STAtp1% 

4180 LDAtp1$+1 :ADC#0 :STAtp1$+1 

4190 SEC:LDAbup$: SBC#1: STAbup 

4200 LDAbups«l:SBCH0:STAbupt«l 

4210 SEC:LDAcnt$:SBC#1:STAcnt® 

4220 LDAcnt$«1:SBCH0:STAcntt«l 

4230 BCSiloop 

4240 .iexit RTS 

4250 : 

4300 .disp LDY#0:LDX#0 

4310 LDhmz$:STAcnt$:LDAmz$«1:STAcnti«l 
4320 .brd CLC:LDAar$:ADCcnt®:STAtp1$:ST 
Atp2s 

4330 LDAar$+1 :ADCont $+1 :STAtp1$+1:STAtp 
2%+1 


4340 LDA(tp]8) , Y:LSRA:LSRA:LSRA:LSRA 
4350 CPX#1:BEQpnt 

4360 CMPàO:BEQnxtl:LDXRl 

4370 .pnt CLC:ADC#48:JSRoswrch 

4380 .nxtl LDA(tp2$),Y:ANDÉ&F 

4390 CPX#1:BEQpnt2 

4400 CMP#0:BEQrpt :LDX#1 

4410 .pnt2 CLC:ADC#48:JSRoswrch 

4420 .rpt SEC:LDAcnt$:SBC#1:STAcntt 
4430 LDAcnt$+1:SBC#0:STAcnt$+1 

4440 BITent +1 :BPLbrd 

4450 TXA:BNEdexit 

4460 LDARB :JSRosurch 

4470 .dexit RTS 

4480 : 

4500 .clear LDY80 

4510 LDAmz$:STAcnté:LDAmzt«1 :STAcnt ¥+1 
4520 .brc CLC:LDAar$:ADCcnt$:STAtp2$ 
4530 LDAar$+1 :ADCcnt $+1:STAtp2¢+1 

4540 LDAFO:STA(tp28) ,Y 

4550 SEC:LDAcnt$:SBCÉ] :STAcnt t 

4560 LDAcnt$+1":SBC#0:STAcnt%+1 

4570 BITcnt$«1:BPLbrc 

4580 RTS 

4590 : 

5000 .sqr LDY#0 

5010 LDAmz$:STAcnt$:LDAmz$«1:STAcnt$«1 
5020 LDNux%:STAX%W:LDNmXW+1:STAxW+1 
5030 LDA#O:STAyt:STAyt+1 

5040 .ib2 CLC:LDAopd2pt xa STAtp3S 


| 5070 LDAbup$+1:ADCx+1:STArevé+1 
5080 LDA(tp38) ,Y:STA(rev8) , Y 
| 5090 CLC:LDAyS:ADCKI :STAyS 
5100 LDAy%+1:ADC#0:STAy%+1 
5110 SEC:LDAx&:SBCÉl:STAx 
5120 LDAx$+1:SBCH Ах%+1 
5130 LDAmz$:CMPy$:LDAmz%+1:SBCy$+1:BCSi 


5140 .lpz CLC:LDAbup$:ADCx%:STArev$ 
5150 LDAbupt+1:ADCx$+1 :STArev$+1 

5160 10А80:5ТА(геу%),Ү 

5170 SEC:LDAx&:SBCÉl:STAxt:LDAxt«l:SBCÉ 
0:5ТАх%+1 

5180 BITx$«1:BPLlpz 

5190 STYt%:STYt%+1 

5200 CLC:LDAmz$:STAcnt$:LDAmzi«1:STAcnt 
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HL 

5210 .clr:CLC:LDAopd2p$ :ADCcnt$:STAtp3$ 
5220 LDAopd2p$+1 :ADCcnt +1 :STAtp3$+1 
5230 LDA#O:STA(tp3%) ,¥ 

5240 SEC:LDAcnt®:SBC#1:STAcnt$ 

5250 LDAcnt$+1:SBC#0:STAcntt+1 

5260 BITcnt%+1:BPLcIr 

5270 .jrot JSRrot 

5280 JSRsbth 

5290 CLC:LDAES:ADCÉL:STAtS 

5300 LDAt+1:ADC#0:STALS+1 

5310 LDAt$:CMPmz$ :LDAt$+1 : SBCmz$«1 : BCCj 
rot 

5320 LDAm2’ :STAt® :LDAmz$+1 :STAt8+1 
5330 CLC:LDAhdlpi:ADOmzi:STAtp3s 
5340 LDAhd1p%+1:ADCmz%+1:STAtp3%+1 
5350 CLC :LDAbup% : ADCmz$ : STArev& 
5360 LDAbups«1:ADOmz$«l:STArevi«l 
5370 LDArespt:STAcnt$:LDArespé«1:STAcnt 
SL 

5380 LDAremp$:STAy$:LDAremp$«l:STAys«l 
5390 .rvbc:LDA(tp3$) ,Y:STA(cnt$) ,Y 
5400 ША (rev) , Y:STA(y$) , Y 

5410 SEC:LDAtp3%:SBCš1:STAtp3% 

5420 LDAtp3$+1:SBC#0 :STAtp3$+1 

5430 SEC:LDArev$:SBC#1:STArev3 

5440 LDArev$+1:SBC#0 :STArev8+1 

5450 CLC:LDAcnt$:ADC#1:STAcnt$ 

5460 LDAcnt$«1:ADCR0:STAcntt«l 

5470 CLC:LDAyS : ADCRL;STAyS 

5480 LDAy$+1 :ADC#0:STAy$+1 

5490 SEC:LDAt®:SBC#1:STAt$ 

5500 LDAtS+1:SBC#O:STAtt+1 

5510 BITt%+-1:BPLrvbc 

5520 SEC:LDAlen$:SBC#1:STAlen’ 

5530 LDAlen$+1:SBC#0:STAlen$+1 

5540 RTS 

5550 : 

5560 .rot 

5570 sTYcnt$:STYcnt+1:STYy$+1 

5580 LDA#1:STAy$:LDA (bup?) , Y: STAtp2$ 
5590 .rbcl CLC:LDAbup$:ADCy$:STArevé 
5600 LDAbup$+1 :ADCy$+1:STArev$+1 
5610 CLC:LDAbupt:ADecnt$:STAtp3s 
5620 LDAbup%+1:ADCcnt%*+1:STAtp3%+1 
5630 LDA(rev&), Y:STA(tp3$) ,¥ 

5640 CLC:LDAcnt$:ADC#1:STAcnt$ 

5650 LDAcnt$+1:ADCA0:STAcnt$+1 


5660 CLC:LDAy$:ADC#1 :STAy’ 

5670 LDAy$+1:ADC#0:STAy$+1 

5680 LDAmx$:CMPy$ : LDAmx$+1:SBCy$+1:BCSr 
bel 

5690 LDAtp2%:STA (revè), Y 

5700 RTS 

5710 : 

5720 .sbth CLC:LDAS1:STAft:STYaux$ 
5730 .sbc3:STYcy$:LDAf$ : STAddq 

5740 JSRmod 

5750 CLC:LDAopd2p$:ADCmz$: STAtp3& 

5760 LDAopd2p$«1:ADCmzi«l:STAtp3i4l 
5770 LDAre&:STA(tp3$) Y 

5780 CLC:LDAhdlp&:ADCmz$:STArevé 

5790 LDAhdlpt«l:ADCmzé«1:STArevisl 
5800 LDA(revé), Y : ANDÉ&OF:ASLA 

5810 CLC:ADCcy$:CLC:ADCdda’ : STAddas 
5820 JSRmod 

5830 LDAre$:ASLA:ASLA:ASLA:ASLA 

5840 ORA(tp3%) ,¥:STA(tp3$) ,¥ 

5850 LDAddq%*:STAcy$ 

5860 SEC:LDAmz$:STAtp1:SBC#1:STAcnt$ 
5870 LDAmz%+1:STAtpl%+1:SBC80:STAcnt%+1 
5880 CLC:LDAhdlp$:ADCtplé:STArev& 

5890 LDAhd1p$+1:ADCtp1$+1:STArevt+1 
5900 .sbed CLC:LDAopd2p$:ADCent$:STAtp3 


ADCent $+ 1:STAtp3$+1 
#&Р0 


5930 LSRA:LSRA:LSRA 

5940 CLC:ADCcy:STAddgt 

5950 JSRmod 

5960 LDAre®:STA(tp38) , Y:LDAddg :STAcyt 


5970 SEC:LDArevi:SBCH. 
5980 LDArevé+1:SBC# 
5990 LDA(revi), Y:ANDÉ&F:ASLA 
6000 CLC:ADCcy$:STAddg$ 

6010 JSRmod 

6020 LDAre$:ASLA:ASLA:ASLA:ASLA 
6030 ORA(tp38) , ¥:STA(tp38) ,¥ 
6040 LDAddg’ :STAcy$ 

6050 SEC:LDAcnt$ :SBC#1:STAcnt$ 
6060 LDAcnt$+1:SBC#0:STAcntt+1 
6070 BITcnt$«1:BMInoj 

6080 JMPsbci 

6090 .noj JSRsubsq 

6100 LDAES 

6110 CLC:ADC#1:LSRA: STAauxt 
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6120 LDAx$:BNEcont 

6130 JSRrstor 

6140 LDXaux&:DEX:STXaux$ 

6150 JMPmore 

6160 .cont LDAf$ 

6170 CLC:ADCÉ2:STAf$:CMPR18:BCSmore 
6180 JMPsbc3 

6190 .more LDAmz%:STAcnt%:LDAmzü+1:STAc 
nt%1 

6200 LDAhdl1p%:STAtp3%:STArev% 

6210 LDAhdlp%+1:STAtp3%+1:STArevt+1 
6220 .sbc6 CLC:LDArev$:ADCHl:STArevi 
6230 LDArev$+1:ADC#0 :STArevt+1 

6240 LDA(revt) , Y: LSRA:LSRA:LSRA: LSRA 
6250 ORA(tp38) , Y:STA(tp3$) ,¥ 

6260 CLC:LDAtp3%:ADC#l :STAtp3% 

6270 LDAtp3$+1 :ADC#O :STAtp3%+1 

6280 LDA (rev), Y:ASLA:ASLA:ASLA:ASLA 
6290 STA(tp38),Y 

6300 SEC:LDAcnt$:SBCl:STAcnt$ 

6310 LDAcnt$«1:SBCRO :STAcnt$+1 

6320 LDAcnt%:ORACnt%+1:BNEsbc6 

6330 LDA (revà) , Y :4NDE&FÜ:ORAaUx:STA(re 
vi), Y 

6340 RTS 

6350 : 

6360 .subsq LDA&1:STAx$:LDAmz$:STAcnt$ 
6370 LDAmzi&«1:STAcnt$«l 

6380 .bbc7 CLC:LDAopd2p&:ADCcnt$:STAtp3 
% 
6390 LDAopd2p%+1:ADCcnt%+1:STAtp3%+1 
6400 CLC:LDAbup$:ADCent$:STArevi 
6410 LDAbup%+1:ADCcnt%+1:STArevš+1 
6420 CLC:LDAhd2p8 :ADCent$: STAtp2$ 
6430 LDAhd2p$«1:ADCcnti«1:STAtp2$4l 
6440 LDA(tp3$) , Y: STAtp18:LDA (rev) , Y 
6450 SED 

6460 LDXx$:BEQbor:SEC 

6470 JMPgo 

6480 .bor CLC 

6490 .go SBCtp1$:STA(tp28) , Y: BCCbor2 
6500 LDA1:STAxS 

6510 JMPcont2 

6520 .bor2 STYx$ 

6530 .cont2 

6540 CLD 

6550 SEC:LDAcnt®:SBC#1:STAcnt® 

6560 LDAcnt $+1:SBC#O:STAcnt$+1 


6570 LDA#0 :BITcnt$+1:BPLbbc7 

6580 CLC:STYcnt$:STYcnt$«l 

6590 .bbcB CLC:LDAbupt :ADCcnt $: STAtp3% 
6600 LOAbup%+1:ADCcnt $+] :STAtp38+1 
6610 CLC:LDAhd2p$:ADCcnt$:STArevi 

6620 LDAhd2p%+1:ADCcnt$+1:STArev+1 
6630 LDA(revš),Y:STA(tp3%),Y 

6640 CLC:LDAcnt® :ADC#1:STAcnt® 

6650 LDAcnt $+1:ADC#0:STAcnt&+1 

6660 LDAmz$:CMPCnt$:LDAmz$«1:SBCcnt$41: 


6690 .mod LDA#O:LDX#8 

6700 .shftsq ASLddq$:ROLA:CMPR10:BCCnex 
t 

6710 SBC#10:INCddq’ 

6720 .next DEX:BNEshftsq:STAre& 

6730 RTS 

6740: 

6750 .rstor STYcy% 

6760 LDAmz$:STAtp28 :LDAmz$«1 : STA p28«1 
6770 .rbc9 CLC:LDAhd2p$:ADCtp2$:STAtp3$ 
6780 LDAhd2p%+1:ADCtp2%+1:STAtp3%+1 
6790 CLC:LDAopdapt : ADCtp2$:STArevi 
6800 LDAopd2pt«1:ADCtp2$41:STArevit«l 
6810 CLC:LDAbupt :ADCtp2$: STAtp1$ 

6820 LDAbupt«1:ADCtp2s«1:STAtpl$«l 
6830 SED 

6840 LDXcy$:BNECar:CLC 

6850 JMPgo2 

6860 .car SEC 

6870 .go2 

6880 LDA(tp3$) ,Y:ADC(rev$) ,Y:STA(tp1%), 
Y 

6890 BCScar2:STycyt 

6900 JMPcont3 

6910 .car2 LDARl:STAcyS 

6920 .cont3 

6930 CLD 

6940 SEC:LDAtp2$:SBCHl:STAtp2$ 

6950 LDAtp2$«1:SECR0:STAtp2$«1 

6960 BITtp2$«1:BPLrbc9 

6970 BPLrbc9 

6980 RTS 

6990 ]:NEXT:ENDPROC 

7000 : 

7010 END E] 


Beebug October 1993 


49 


Te 
indy 

Save Seton | бети 

ЛТ 


SUBSCRIPTION DET! 

As a member of BEEBUG you may subscribe to RISC User 
for the reduced rate of £18,40 (a saving of £1.50 on the 
normal subscription rate). 

Overseas subscription rates are as follows: 

427.50 Europe and Eire, £33.50 Middle East, £36.50 
Americas & Africa, £39.50 Elsewhere 


The number one 
subscription 
zine for the 
Archimedes 


RISC User, probably the most popular subscription magazine for the 
Archimedes, offers all the information you need as an Archimedes 
user. In every issue of RISC User you will find а wealth of articles 
and programs with professionally written reviews, lively news, help 
and advice for beginners and experienced users, and items of home 
entertainment. 

The B5 size of RISC User allows a sophisticated design, big colour 
illustrations and pages full of information, and yet 8 still a convenient 
size to assemble into an easy-to-use reference library. Altogether, in 
its six years of existence, RISC User has established a reputation for a 
professional magazine with accurate, objective and informed articles 
of real practical use to all users of Асот range of RISC computers. 


Contents of the latest Vol.6 Issue 10 of RISC User: 
GROUP SURVEY - DATABASE SYSTEMS 


A comprehensive survey of the choices available to users 
seeking database systems. 

NATURE'S WAY: EXPLORING GENETIC 
ALGORITHMS 

‘An exploration of how ideas of genetics can be used to 
solve а variety of problems such as that of the classic 
“Travelling Salesman”. 

ACORN FLOATING POINT ACCELERATOR 
Review of the latest Acorn add-on for the Archimedes 
giving more power and speed, particularly where 
Scientific calculations are concerned. 

FIRSTLOGO FROM LONGMAN LOGOTRON 

The latest version of Logo for the educational market 
from experts Longman Logotron. 

FASTER PC: A FASTER PC EMULATOR 

A review of an independent software emulation for the Arc 
of the PC, which claims to be faster than Acorn's offering. 
ALL ABOUT FONTS 

Acom's powerful outline font system demystified. 

WIMP TOPICS 

А major series aimed at readers interested in Wimp 
programs and Wimp programming. Each article looks 
at aspects of a particular topic. 

WRITE-BACK 

The readers’ section of RISC User for comment, hel 
information - a magazine version of a bulletin board. 
INTO THE ARC 

A regular series for beginners. 

TECHNICAL QUERIES 

А column which answers your technical queries. 
THE DOS SURVIVAL GUIDE 

А series of articles on how to use the PC Emulator. 
EDUCATIONAL SOFTWARE AT HOME 

A series of articles aimed at parents who want to use the 
Archimedes to help their children in their school work. 
‘This issue covers Maths and Numbers. 


ipit" HINTS, HRT 5, HINTS, HINTS. 


AUTO-BOOTING THE MASTER 128 

D Macgraw 

To automatically run a regularly used and 
never changed Basic (or similar) program, 
when you switch on your system, blow the 
program onto EPROM and auto-boot from 
the RES (ROM Filing System). Of course, you 
could also use your battery backed-up 
sideways RAM, if you're lucky enough to 
have any. 


Firstly, write a !Boot file in Basic to CHAIN 
the required program(s). Use Bernard Hill's 
BSave utility (BEEBUG Vol.6 No.7), or David 
Cox's Starrun (BEEBUG Vol.11 No.5), to 
convert the !Boot file into one which сап be 
run with the *RUN command. At the start of 
the actual program, add a *DISC or *ADFS 
command to reinstate the (A)DFS. Then use 
Mark Lock's ROMGen (BEEBUG Vol.6 No.6) 
ROM Generator to put the !Boot file and the 
program into ROM image format. 


Once you've blown the image files onto 
EPROM, or *SRLOADed them into your 
battery backed-up sideways RAM, you will 
need to configure your Master to auto-boot 
from the RFS. Just type the following 
commands to do this: 

*CONFIGURE FILE15 

*CONFIGURE BOOT 

‘CONFIGURE LANGI2 
You could also perform various other tasks 
with the !Boo! file before loading the main 
program. For example, it could install the 
Enhanced Printer Buffer (BEEBUG Vol.5 No.7 
and Vol.6 No.10) into sideways RAM. 
However you can’t use the *SRLOAD 
command іп а !Boot file, as it only loads the 
first 512 bytes of the file (a MOS 3.20 bug?), so 
you would need to use the following 
sequence: 
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*LOAD Buffer E00 

*SRWRITE Е00+В12 8000 7 

252А8-582 

*BUFFON 
to install and activate the buffer before 
CHAINing the main program. 


YET ANOTHER DAY FINDER 
Thomas Watts 
The following function will print out the day 
of the week on which any date from January 
1st 1780 onward falls. To call it, use a 
Statement in the form: 

day$=FNday (D,M, Y) 
where D, M, and Y are the day, month and 
year respectively. 

10 DIM M(11),N$(7) 

20 DEF FNday(D,M, Y) 

30 Ү-(Ү-1780) *365+INT( (Ү-1777)/4)- 
ІМТ((Ұ-1701)/100) «INT( (Y-1601) /400) 

40 IF М-1 M-0:GOTO 100 

50 FOR 1-1 TO М-1 

60 READ M(I) 

70 IF М<13 М-М(1) ELSE M=M+M(I) 

80 NEXT 

90 DATA 31,28,31,30,31,30,31,31 

100 DATA 30,31,30 

110 N=Y+M+D 

120 NeN-INT(N/7)*7 

130 RESTORE 160 

140 FOR J=1 70 Nel 

150 READ N$(J) 

160 NEXT 

170 DATA FRIDAY, SATURDAY, SUNDAY, MONDAY 

180 DATA TUESDAY, WEDNESDAY, THURSDAY 

190 =N$(N+1) 
The function does not perform date 
validation, and will treat a false entry such as 
September 31st as October 1st. You could, 
however, customise it to use David Abbot's 
date checking routine (BEEBUG Hints and 
Tips Vol.12 No.1). 8 
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Personal Ads 


a in BEEBUG. These are completely free of charge but please keep your ad as short an 
we will try to include all ada received, we reserve the right to edit or reject any if 
Ееее) rog: үзг gebe de vs meti элк neat ord gei rio vadit ae, À À 
advise us if you do not wish us to do this. We will accept adverts for software, but prospective purchasers 
Should ensure that they alone reesive original серіге inclnding decumentetion ie eneid any abure of 


We also accept members' Businens Ade at the rate of 40р per word (inclusive of VAT) and these will be 
featured separately. Please send all ads (personal and business) to MEMBERS' ADS, BEEBUG, 
117 Hatfield Road, St. Albans, Herts ALI 4J8. 


BBC 5.25 games, Ricochet, Stryker's x date, weights approx 9 kilo (postage User magazines 1987-1989, some — condition with all their connectors 
Run | 4 П, Roundheads, Tank £6.50) offers? BEEBUG programs 1990, 22 Electron User tapes £140 the — and in their original boves, ribbon. 
Attack £30, рар £2, PLAS. 11, (about 900 on 7 ADFS discs) £15, — le Tel Onfond OFS S3 connector for a Star LC 30 printer, 
Spycat, Superior Soccer, Airwolf, Wordwise +2 ROM with segment various utility dises, including ой 
Paperboy, Sink the Bismarch £35, — discs and books £18, Fast Access Volume No: Nos 4479,10 Volume ХОМА (BBC B BASIC, ez Books 
plep £2. Tel. Colchester 0106578532 Vol. 1 (12 dises) £8, Creative No2 to Volume 11 complete Тһе Advanced User Guide for BBC 
Graphics book, with a DFS graphic Volume 12 to current issue, Volume Micra, Wordwise + by Bruce Smith 
Solidcad and Superdump £25 each, dise £6, Structured Basie (National об in BEEBUG binders, also а over 2 years BEEBUG mags, all 
Office Mate and Office Master £5 Extension College) R Freeman GS, BEEBUG dises from Volume 92 to бог Tel 0727655848, 
‘ach Termulator В» 1200, СХА Be Acorn Master Reference manuals Volume 105 (825) Volume 108 to 
1200 and a few BBC books 16245 each. Collect from West 122 (35°), all in good clean WANTED: double sided dual 
(upgrading), plus 12 cassette games Surrey or transport by arangement. condition, sensible offers Tel Kent — 40/80T dise drive with power 
ideal for school, write to Mr C Tel 025271019 0822664762 eves oniy. Supply for BBC master 128, must be 
Game, M Grosvenor, Tiptree, in (шї working order and 
Colchester, Essex COS 0 Master 128, with combined dual Mikro User 13 original consecutive reasonably priced. Tel. Lincoln 0673 
D/S 35 and 40/80 525 drivesin АТ magazine discs, from July 1989 860802. 
WANTED: PC software for Master — custom built pine plinth housing, — to July 1990 inclusive £12 or 
512 Wordperfect 51 for DOS will Ferguson colour TV monitor with exchange other software on similar New unused AKF18 multisync 
| apio О plus mama Cem АСВ, View 04 wordprocssos, umber of dic other сао mon il in bon pening dist 
гч Word Pus, Gem Artline, write Viewsheet 02 spreadsheet, — sofware also sofware fordyslencs. Unwanted part of A5000 system 
to Mr С Game, 24 Grosvenor, — Viewspell 01 dictionary and Те Dorset 035852276. £250 оло. Tel. Uxbridge 0895 
Tiptree, Colchester, Ewex COSMN.  Viewstore 01 database in quad 63565 eves only 
cartridge, complete with manuals — Master 128, colour monitor, 2,525" 
WANTED: Wekome 40/8) disc for and dise, full original utilities diss, drives, mouse, dises and ROMs Master 128, КСВ colour monitor, 


Master 128, original and backup lest Contex Bank Manager and manual, (Ж. ТА. Essex 0245 383750. 5257 dual dise drive, double plinth, 
in accident, local dealers no lor Star 1С10 9 pin printer, hr Basic 3 disc storage bones with В blank 
stock, Acorn not interested, Tel, manual, Dabhand Guide to View, — Master 128, Pace 40T single drive, — discs, Interword and View fitted, 
Cornwall (208 450463, BEEBUG mag dics 13/525, 7/15: mouse, Overview, Stop Press Musc educational software for young and 
BEEBUG magazines Vol7 - Vol.1], System, Wordwise, System Camma older children also ots of original 
WANTED: Acorn teletext adaptor. ako complete BBC Computer User etc 8 games discs and tapes, commercial games (Holed Out, 
Та. London 081-5397607. (Watford) Tel Mid Clamorgan 0656 — BEEBLC complete to Vol11 No5, ГЛАЗ, Elite and nearly every 
Шыл books, other software, dises, ete. all Repton game), Typing Tutor and 
WANTED: Help required with Boned with manuals £200 the ot, айтал Mane package, compte 
спір up BOC 12 CS ROM Camidrw member attention wa will sp Tel Derbyshire DINE — ser ЗЕВС танат pss 
with a Vine Micros Master Replay geting established Heeb User e PD — 7156. other books /software, only EN 
Software с/о Tel Portsmouth 0705 826401 


ROMboard 3, have the ROM and group, named 8 
the switch but don't have any info Chris Richardson, 17 Lambert Park Help wanted: Ref Crossword 
on what to do with them? Tel Road, Hedon, Hull HUI2 8HF (0882 Compiler Hlth Anniversary dic, ап ВВС Master MOS 3.20, Terminal 
Flitwick 0525 715013 ask for Tim БЫ) Dont let the BEEB ді, lcan anyone please supply the changes 120, View B30, ADES 130, Edit 4, 
діктері [wll then ring youback, recommend you get in touch, fora — necessary to enable the above — Viewsheet 810, DFS 224, SRAM 

second opinion ring Timon 2S program bo work cormeciy ona Sir ШИ, Splimaster 148, Wordwise 
Make any онен All tems will goso 715013 afer 6pm. 24.10 printer (Epson compatible). Plus АР, Overview 1.0, Penfriend 
the best offer received within seven The problem is getting the correct 153 fitted, cassette, bridge of twin 
days of publication Master 128 with Facit 481 and Smith Corona DIO vertical positioning of the 40/80525 disc drives, Micrvitee 
internal 312 co-processor and — printer-user handbooks required, numbering when using the ‘Load’ 653 colour monitor, belabase and 
mouse, complete with Welcome will pay costs. Tel. Lancs 061-643 facility with a previously saved utilities, 512 board fitted with mouse 


Guide and disc, Mierovitee 1451 4591 after fpm. crossword. (followed by the Р print and programs all originals, lots of 
colour monitor, Cumana double dise option and No2 grid Ño. option in — support material £375 оло, Tel 
dive (mains powerd} 4 Cem dies Master 128 Т 525 drive some either size), in other respect all ОННО 


Dabs Press Master 512 User Guide software £150, PMS Genie and utis seems well. If anyone has a listing 
£345? Panasonic KX-P1081 dot- disc £29, Kayleth dise (5, Elite tape that works or can tell me what lines WANTED: Games/Educational 
matrix printer £85? Hybrid Musie with all manuals 5, PIAS. 16 dic to change to mahe it work I willbe dises 525° for BBC B. Tel, Norfolk. 
SNM synthesiser, Hybrid Music 4009 £S, Бір” tape 2. Bond - The Living very grateful. Tel. Dyfed 0646 — 0692 403617 (work) 0263 720164 


keyboard with footswitch, Hybrida Daylights dise 55, Exle dine Dor — ENDS ome) 
Music Toolbox disc (all with user. reasonable offers. Tel. Weston 

guides and dises), “Play tutor апа Mare 8342071 Mater 128 wih, 65102 co: ВВС Master Compact complete 
dic (cost over £4) C109 BEEBUG processor & user guide pars 142 with colour moniter and 35" 


Masterfile Il (ADFS) £15, BEEBUC Electron plus LAP4 dise interface, Single 5257 10/8 1/0 dise drive — Overview П, all the View hady 
Printwise disc and guide £10, DFS 220, View cartridge, ТОРА (dep. power lead), mono orange — with manuals £300 c.n o. buyer 
BEEBUC Studio S вс and guide 55, tape/disc, Cumana disc drive DS screen monitor (Acorn ANF06), collects. Tel, Cardiff 0222 490766 
BEEBUC magazines, completeset ts $0/S0T switch, User guide, Electron Асет cassette confer, all іп good anytime B 
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WORDWISE AND WORD PROCESSING 
ON AN ARC 


I was surprised to see the assertion in the 


editorial page of BEEBUG Vol.12 No.3 that “it 
is perfectly feasible to use old favourites like 
View, and Wordwise on an Archimedes". I 
cannot speak for View, which I have always 
avoided, but I assume that your intention 
was to refer to Wordwise Plus rather than the 
original Wordwise. I have reason to think that 
far from being "perfectly feasible", it is in fact 
scarcely practical. 


A test by а colleague produced the report that 
Wordwise Plus is not really usable under the 
BBC emulator because of the slow rate of 
screen updating. This is disappointing, 
because I believe that Wordwise Plus cannot 
be regarded as a serious word processor on 
the Arc, 


My message to Wordwise Plus users, 
therefore, is stick to an 8-bit machine, 
preferably a Master 128 or machine with 
shadow RAM. For typical personal word 
processing requirements, this combination 
has proved hard to beat. 

Colin Robertson 


The reference to “Wordwise” in the editorial was 
used generically, rather than as a specific 
identifier. Moreover, it was not our intention to 
imply that any of the Beeb word processors 
provided the ideal solution for this task, more that 
they (and associated files) could continue to be 
used on an Archimedes. Most users experiences 
seem to he that despite many misgivings old 
methods, using files and software from 8-bit 
machines, are rapidly abandoned in favour of the 
more powerful and flexible applications written 
specifically for the Archimedes. 


COLOURED RIBBONS 

Some time ago BEEBUG carried a piece on 
multi-coloured printing on a dot-matrix 
printer using single colour ribbons (Vol.8 
No.4). Since then I’ve been trying to get hold 
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of coloured ribbons (single colours other than 
black), but with no success, and 1 have been 
unable to locate a supplier. Can any readers 
help? 

Chris Robbins 


If апу readers can provide sources of coloured 
ribbons, we will publicise this through BEEBUG, 
and of course let Chris Robbins know, 


MAINTAINING A BEEB 

I have several times experienced failure with 
Astec AA11660 power supplies for the Beeb. 
These supposedly “throw-away” items cost 
about £60! Electrolytic capacitor C9, rated 220 
micro farads at 10 Volts, had decreased to 
about 10 micro farads in all cases. C9 lies 
between the power transformer and the ТОЗ 
power transistor, and forms part of the “start 
up” circuit. A “high frequency” electrolytic is 
required, and a Maplin 220 micro farad 50 
Volt capacitor (at about 50p) will just squeeze 
into the space available. After extracting the 
PSU (Power Switched Unit) from the 
computer, you need to free two cable ties, the 
switch and the power output socket, and 
extract three mounting screws and two 
earthing tags, to gain access to the underside 
of the PCB. I do also recommend that you use 
a thermostatically regulated soldering iron. 


In the event of a faulty PSU, many faults can 
occur, but replacing C9 is a good cheap first 


guess. 
CJ.Chapman 


This is all useful advice, but we would advise 
caution unless you really do feel competent with a 
soldering iron. However, if the power unit has 
failed, and a complete replacement is the only 
other alternative, then there is little to lose, but do 
lake care or your ‘repair’ might end up by 
damaging other parts of your Beeb, Also, da make 
sure any equipment is disconnected from the 
mains when being repaired. We can accept no 
responsibility for the consequences as a result of 
following Mr.Chapman's advice. B 
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Send applications for membership renewals, membership queries. and orders for back issues 10 the address 
below. All membership. fee: ‘should be in pounds sterling drawn (for cheques) on à UK 
E 


bank. Members may also 


s, including ‘overseas, 
subscribe to RISC User ata special reduced rate. 


о н 
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dering several tems из, the highest 559 


When 
price code, pus al the price of each 
Prübsequent code. UK maximum £8. 


BEEBUG 

nu Hatfield Road, St Albans. Herts ALT AJS 
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Special BEEBUG Members Offer 


SPECIAL OFFERS AND REDUCED PRICES ON NEW ACORN 
(COMPUTERS PLUS SPECIAL COMPUTER CONVERSION PACKAGE 


If you have been considering converting from your BBC computer to a new Acorn RISC computer this may be 
the best time. Not only are we at BEEBUG offering fantastic deals on special A3010 packages but Acorn have 
just announced new computer systems which with their new software bundles offer a considerable price 
reduction. In addition we are continuing to offer the special conversion package to help you convert systems 
thus simplifying the transfer of software from your BBC. 


NEW COMPUTER SYSTEMS FROM ACORN 


Acorn have just announced the new line up of systems for Christmas 1993. Although most of the computers themselves have 
remained unchanged, the prices have come down and there are some exciting new software bundles available with them. 


A3010 Action Pack A3020 FD Colour System А5000 Multiscan System 


Code 02039 Code 01519 Code 0325 
(£399 inc VAT) (£793.12 inc VAT) (£1499 inc VAT) 


The entry level system is now available 
at an incredible £399 inc VAT. This is 
amazing value. The computer can Бе 
plugged straight into your television 
or used with an optional monitor 

1Mb Memory (Upgradable to 4Mb) 

1 Free Mini Expansion Slot 

2 Joystick Ports 

ТУ Modulator 

The Action pack includes Zool, 
Startwrite and an Audio Training Tape, 
along with demonstration versions of 
Lemmings, Chuck Rock, Superpool and 


Colour Monitor (AKF40) 
2 Mb Memory expandable to 4Mb 
1 Free Mini Expansion Slot 


Now with the ARM 3 running even. 
faster at 33Mhz 


Multiscan Monitor (AKF10) 

2 Mb Memory Upgradable to Mb. 
80 Mb Internal Hard Drive 

4 Free Full Expansion Slots 

Option 

160HD 4Mb RAM System. (17022 


А4000 Colour System 
Code 0227g 
(6999 inc VAT) 
Colour Monitor (AKF40) 
2 Mb Memory Upgradable to 4Mb 
80 Mb Internal Hai 
1Free poc iei: <p) The Learning Curve Pack 


This із available with tho. 


Option: 
Multiscan Monitor (AKF18) £42.55 


The Home Office Pack 
This is available with the A4000 ог 
А5000 and consists of Easiwriter, 
Datapower, Pipedream 4, PC Emulator, 
DR DOS 6 and an Audio Training Tape. 
It also contains demonstration 
versions of Prophet and Almanac. 
Option price: £85.11 


Fervour 


|АЗО10 Learning Curve System 


А4000 and А5000, It includes Acorn 
‘Advance, PC Emulator, DR DOS 6 
and an Audio Training Таре 

It also includes demonstrat 
versions of Rhapsody ll, ScoreDraw, 
Vox Box, Fervour, Topographer, 
Darryl the Dragon, smArt, 

The Crystal Rain Forest, 
Naughty Stories and ArcVenture, 


£42.55 


Code 01739 
(6749.00 inc VAT) 

Colour Monitor (AKF30) 

2 Mb Memory (Upgradable to 4МЬ) 

1 Free Mini Expansion Slot 

2 Joystick Ports 

ing Curve Softw: 


L ck Option price: 


TRADE IN YOUR EXISTING EQUIPMENT 
FOR A NEW SYSTEM 
may prefer to keep your BBC and soll it privately 
(don't forget that members may place free ads in OFERU 
Should you wish Us to take it in part exchange 
we are currently able to offer the following prices 


SERIAL LINK 
SOFTWARE TO 
EASE TRANSFER 
OF YOUR FILES 


So as to cause you as little 


FREE RISC USER. 
SUBSCRIPTION OFFER 
(when you purchase one of the 
above computers) 
ipply you with а 


upheaval as possible when tion to RISC User BBCissue7 £20 ВВС неше 7 with DIS (40 
changing your system we Master 128 £75 Microvitec monitor (20 
are offering you Waryash's le in offers can be applied up to two months after 


Serial Link and lead for INCLUDI 


ase of your new equipment. 
all others are ex. VAT. 


ade in price 


117 Hatfield Road, St Albans, Herts AL14JS 


Tel: 0727 840303 (24 hours) Fax: 0727 860263 AI 


